home *** CD-ROM | disk | FTP | other *** search
/ Heavenly Hunks: ADAMS / ADAMS - Heavenly Hunks.iso / mac / Hunks Browser / Hunks Browser / cards.xml < prev    next >
Text File  |  1994-05-12  |  1MB  |  7,340 lines
  1. card_6626.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>6626</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2566</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  12.     <content>
  13.         <layer>background</layer>
  14.         <id>106</id>
  15.         <text>Tyke 11</text>
  16.     </content>
  17.     <content>
  18.         <layer>background</layer>
  19.         <id>335</id>
  20.         <text>Heavenly Hunks:8-bit PICT Reduced:Tyke:Tyke 11.R</text>
  21.     </content>
  22.     <content>
  23.         <layer>background</layer>
  24.         <id>311</id>
  25.         <text>Heavenly Hunks:24-bit TIF:Tyke:Tyke 11.TIF</text>
  26.     </content>
  27.     <content>
  28.         <layer>background</layer>
  29.         <id>331</id>
  30.         <text>Heavenly Hunks:8-bit PICT:Tyke:Tyke 11.PICT</text>
  31.     </content>
  32.     <name></name>
  33.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  34. </card>
  35.  
  36.  
  37. card_6064.xml
  38. <?xml version="1.0" encoding="utf-8" ?>
  39. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  40. <card>
  41.     <id>6064</id>
  42.     <filler1>0</filler1>
  43.     <cantDelete> <false /> </cantDelete>
  44.     <showPict> <true /> </showPict>
  45.     <dontSearch> <false /> </dontSearch>
  46.     <owner>2566</owner>
  47.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  48.     <content>
  49.         <layer>background</layer>
  50.         <id>106</id>
  51.         <text>Tyke 10</text>
  52.     </content>
  53.     <content>
  54.         <layer>background</layer>
  55.         <id>335</id>
  56.         <text>Heavenly Hunks:8-bit PICT Reduced:Tyke:Tyke 10.R</text>
  57.     </content>
  58.     <content>
  59.         <layer>background</layer>
  60.         <id>311</id>
  61.         <text>Heavenly Hunks:24-bit TIF:Tyke:Tyke 10.TIF</text>
  62.     </content>
  63.     <content>
  64.         <layer>background</layer>
  65.         <id>331</id>
  66.         <text>Heavenly Hunks:8-bit PICT:Tyke:Tyke 10.PICT</text>
  67.     </content>
  68.     <name></name>
  69.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  70. </card>
  71.  
  72.  
  73. card_5797.xml
  74. <?xml version="1.0" encoding="utf-8" ?>
  75. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  76. <card>
  77.     <id>5797</id>
  78.     <filler1>0</filler1>
  79.     <cantDelete> <false /> </cantDelete>
  80.     <showPict> <true /> </showPict>
  81.     <dontSearch> <false /> </dontSearch>
  82.     <owner>2566</owner>
  83.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  84.     <content>
  85.         <layer>background</layer>
  86.         <id>106</id>
  87.         <text>Tyke 09</text>
  88.     </content>
  89.     <content>
  90.         <layer>background</layer>
  91.         <id>335</id>
  92.         <text>Heavenly Hunks:8-bit PICT Reduced:Tyke:Tyke 09.R</text>
  93.     </content>
  94.     <content>
  95.         <layer>background</layer>
  96.         <id>311</id>
  97.         <text>Heavenly Hunks:24-bit TIF:Tyke:Tyke 09.TIF</text>
  98.     </content>
  99.     <content>
  100.         <layer>background</layer>
  101.         <id>331</id>
  102.         <text>Heavenly Hunks:8-bit PICT:Tyke:Tyke 09.PICT</text>
  103.     </content>
  104.     <name></name>
  105.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  106. </card>
  107.  
  108.  
  109. card_5514.xml
  110. <?xml version="1.0" encoding="utf-8" ?>
  111. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  112. <card>
  113.     <id>5514</id>
  114.     <filler1>0</filler1>
  115.     <cantDelete> <false /> </cantDelete>
  116.     <showPict> <true /> </showPict>
  117.     <dontSearch> <false /> </dontSearch>
  118.     <owner>2566</owner>
  119.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  120.     <content>
  121.         <layer>background</layer>
  122.         <id>106</id>
  123.         <text>Tyke 08</text>
  124.     </content>
  125.     <content>
  126.         <layer>background</layer>
  127.         <id>335</id>
  128.         <text>Heavenly Hunks:8-bit PICT Reduced:Tyke:Tyke 08.R</text>
  129.     </content>
  130.     <content>
  131.         <layer>background</layer>
  132.         <id>311</id>
  133.         <text>Heavenly Hunks:24-bit TIF:Tyke:Tyke 08.TIF</text>
  134.     </content>
  135.     <content>
  136.         <layer>background</layer>
  137.         <id>331</id>
  138.         <text>Heavenly Hunks:8-bit PICT:Tyke:Tyke 08.PICT</text>
  139.     </content>
  140.     <name></name>
  141.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  142. </card>
  143.  
  144.  
  145. card_5298.xml
  146. <?xml version="1.0" encoding="utf-8" ?>
  147. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  148. <card>
  149.     <id>5298</id>
  150.     <filler1>0</filler1>
  151.     <cantDelete> <false /> </cantDelete>
  152.     <showPict> <true /> </showPict>
  153.     <dontSearch> <false /> </dontSearch>
  154.     <owner>2566</owner>
  155.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  156.     <content>
  157.         <layer>background</layer>
  158.         <id>106</id>
  159.         <text>Tyke 07</text>
  160.     </content>
  161.     <content>
  162.         <layer>background</layer>
  163.         <id>335</id>
  164.         <text>Heavenly Hunks:8-bit PICT Reduced:Tyke:Tyke 07.R</text>
  165.     </content>
  166.     <content>
  167.         <layer>background</layer>
  168.         <id>311</id>
  169.         <text>Heavenly Hunks:24-bit TIF:Tyke:Tyke 07.TIF</text>
  170.     </content>
  171.     <content>
  172.         <layer>background</layer>
  173.         <id>331</id>
  174.         <text>Heavenly Hunks:8-bit PICT:Tyke:Tyke 07.PICT</text>
  175.     </content>
  176.     <name></name>
  177.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  178. </card>
  179.  
  180.  
  181. card_4966.xml
  182. <?xml version="1.0" encoding="utf-8" ?>
  183. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  184. <card>
  185.     <id>4966</id>
  186.     <filler1>0</filler1>
  187.     <cantDelete> <false /> </cantDelete>
  188.     <showPict> <true /> </showPict>
  189.     <dontSearch> <false /> </dontSearch>
  190.     <owner>2566</owner>
  191.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  192.     <content>
  193.         <layer>background</layer>
  194.         <id>106</id>
  195.         <text>Tyke 06</text>
  196.     </content>
  197.     <content>
  198.         <layer>background</layer>
  199.         <id>335</id>
  200.         <text>Heavenly Hunks:8-bit PICT Reduced:Tyke:Tyke 06.R</text>
  201.     </content>
  202.     <content>
  203.         <layer>background</layer>
  204.         <id>311</id>
  205.         <text>Heavenly Hunks:24-bit TIF:Tyke:Tyke 06.TIF</text>
  206.     </content>
  207.     <content>
  208.         <layer>background</layer>
  209.         <id>331</id>
  210.         <text>Heavenly Hunks:8-bit PICT:Tyke:Tyke 06.PICT</text>
  211.     </content>
  212.     <name></name>
  213.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  214. </card>
  215.  
  216.  
  217. card_4513.xml
  218. <?xml version="1.0" encoding="utf-8" ?>
  219. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  220. <card>
  221.     <id>4513</id>
  222.     <filler1>0</filler1>
  223.     <cantDelete> <false /> </cantDelete>
  224.     <showPict> <true /> </showPict>
  225.     <dontSearch> <false /> </dontSearch>
  226.     <owner>2566</owner>
  227.     <marked><true /></marked>
  228.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  229.     <content>
  230.         <layer>background</layer>
  231.         <id>106</id>
  232.         <text>Tyke 05</text>
  233.     </content>
  234.     <content>
  235.         <layer>background</layer>
  236.         <id>335</id>
  237.         <text>Heavenly Hunks:8-bit PICT Reduced:Tyke:Tyke 05.R</text>
  238.     </content>
  239.     <content>
  240.         <layer>background</layer>
  241.         <id>311</id>
  242.         <text>Heavenly Hunks:24-bit TIF:Tyke:Tyke 05.TIF</text>
  243.     </content>
  244.     <content>
  245.         <layer>background</layer>
  246.         <id>331</id>
  247.         <text>Heavenly Hunks:8-bit PICT:Tyke:Tyke 05.PICT</text>
  248.     </content>
  249.     <name></name>
  250.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  251. </card>
  252.  
  253.  
  254. card_4329.xml
  255. <?xml version="1.0" encoding="utf-8" ?>
  256. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  257. <card>
  258.     <id>4329</id>
  259.     <filler1>0</filler1>
  260.     <cantDelete> <false /> </cantDelete>
  261.     <showPict> <true /> </showPict>
  262.     <dontSearch> <false /> </dontSearch>
  263.     <owner>2566</owner>
  264.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  265.     <content>
  266.         <layer>background</layer>
  267.         <id>106</id>
  268.         <text>Tyke 04</text>
  269.     </content>
  270.     <content>
  271.         <layer>background</layer>
  272.         <id>335</id>
  273.         <text>Heavenly Hunks:8-bit PICT Reduced:Tyke:Tyke 04.R</text>
  274.     </content>
  275.     <content>
  276.         <layer>background</layer>
  277.         <id>311</id>
  278.         <text>Heavenly Hunks:24-bit TIF:Tyke:Tyke 04.TIF</text>
  279.     </content>
  280.     <content>
  281.         <layer>background</layer>
  282.         <id>331</id>
  283.         <text>Heavenly Hunks:8-bit PICT:Tyke:Tyke 04.PICT</text>
  284.     </content>
  285.     <name></name>
  286.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  287. </card>
  288.  
  289.  
  290. card_3989.xml
  291. <?xml version="1.0" encoding="utf-8" ?>
  292. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  293. <card>
  294.     <id>3989</id>
  295.     <filler1>0</filler1>
  296.     <cantDelete> <false /> </cantDelete>
  297.     <showPict> <true /> </showPict>
  298.     <dontSearch> <false /> </dontSearch>
  299.     <owner>2566</owner>
  300.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  301.     <content>
  302.         <layer>background</layer>
  303.         <id>106</id>
  304.         <text>Tyke 03</text>
  305.     </content>
  306.     <content>
  307.         <layer>background</layer>
  308.         <id>335</id>
  309.         <text>Heavenly Hunks:8-bit PICT Reduced:Tyke:Tyke 03.R</text>
  310.     </content>
  311.     <content>
  312.         <layer>background</layer>
  313.         <id>311</id>
  314.         <text>Heavenly Hunks:24-bit TIF:Tyke:Tyke 03.TIF</text>
  315.     </content>
  316.     <content>
  317.         <layer>background</layer>
  318.         <id>331</id>
  319.         <text>Heavenly Hunks:8-bit PICT:Tyke:Tyke 03.PICT</text>
  320.     </content>
  321.     <name></name>
  322.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  323. </card>
  324.  
  325.  
  326. card_3670.xml
  327. <?xml version="1.0" encoding="utf-8" ?>
  328. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  329. <card>
  330.     <id>3670</id>
  331.     <filler1>0</filler1>
  332.     <cantDelete> <false /> </cantDelete>
  333.     <showPict> <true /> </showPict>
  334.     <dontSearch> <false /> </dontSearch>
  335.     <owner>2566</owner>
  336.     <marked><true /></marked>
  337.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  338.     <content>
  339.         <layer>background</layer>
  340.         <id>106</id>
  341.         <text>Tyke 02</text>
  342.     </content>
  343.     <content>
  344.         <layer>background</layer>
  345.         <id>335</id>
  346.         <text>Heavenly Hunks:8-bit PICT Reduced:Tyke:Tyke 02.R</text>
  347.     </content>
  348.     <content>
  349.         <layer>background</layer>
  350.         <id>311</id>
  351.         <text>Heavenly Hunks:24-bit TIF:Tyke:Tyke 02.TIF</text>
  352.     </content>
  353.     <content>
  354.         <layer>background</layer>
  355.         <id>331</id>
  356.         <text>Heavenly Hunks:8-bit PICT:Tyke:Tyke 02.PICT</text>
  357.     </content>
  358.     <name></name>
  359.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  360. </card>
  361.  
  362.  
  363. card_2090.xml
  364. <?xml version="1.0" encoding="utf-8" ?>
  365. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  366. <card>
  367.     <id>2090</id>
  368.     <filler1>0</filler1>
  369.     <cantDelete> <false /> </cantDelete>
  370.     <showPict> <true /> </showPict>
  371.     <dontSearch> <false /> </dontSearch>
  372.     <owner>2566</owner>
  373.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  374.     <content>
  375.         <layer>background</layer>
  376.         <id>106</id>
  377.         <text>Tyke 01</text>
  378.     </content>
  379.     <content>
  380.         <layer>background</layer>
  381.         <id>335</id>
  382.         <text>Heavenly Hunks:8-bit PICT Reduced:Tyke:Tyke 01.R</text>
  383.     </content>
  384.     <content>
  385.         <layer>background</layer>
  386.         <id>311</id>
  387.         <text>Heavenly Hunks:24-bit TIF:Tyke:Tyke 01.TIF</text>
  388.     </content>
  389.     <content>
  390.         <layer>background</layer>
  391.         <id>331</id>
  392.         <text>Heavenly Hunks:8-bit PICT:Tyke:Tyke 01.PICT</text>
  393.     </content>
  394.     <name></name>
  395.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  396. </card>
  397.  
  398.  
  399. card_9394.xml
  400. <?xml version="1.0" encoding="utf-8" ?>
  401. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  402. <card>
  403.     <id>9394</id>
  404.     <filler1>0</filler1>
  405.     <cantDelete> <false /> </cantDelete>
  406.     <showPict> <true /> </showPict>
  407.     <dontSearch> <false /> </dontSearch>
  408.     <owner>2566</owner>
  409.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  410.     <content>
  411.         <layer>background</layer>
  412.         <id>106</id>
  413.         <text>Sean 10</text>
  414.     </content>
  415.     <content>
  416.         <layer>background</layer>
  417.         <id>335</id>
  418.         <text>Heavenly Hunks:8-bit PICT Reduced:Sean:Sean 10.R</text>
  419.     </content>
  420.     <content>
  421.         <layer>background</layer>
  422.         <id>311</id>
  423.         <text>Heavenly Hunks:24-bit TIF:Sean:Sean 10.TIF</text>
  424.     </content>
  425.     <content>
  426.         <layer>background</layer>
  427.         <id>331</id>
  428.         <text>Heavenly Hunks:8-bit PICT:Sean:Sean 10.PICT</text>
  429.     </content>
  430.     <name></name>
  431.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  432. </card>
  433.  
  434.  
  435. card_8998.xml
  436. <?xml version="1.0" encoding="utf-8" ?>
  437. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  438. <card>
  439.     <id>8998</id>
  440.     <filler1>0</filler1>
  441.     <cantDelete> <false /> </cantDelete>
  442.     <showPict> <true /> </showPict>
  443.     <dontSearch> <false /> </dontSearch>
  444.     <owner>2566</owner>
  445.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  446.     <content>
  447.         <layer>background</layer>
  448.         <id>106</id>
  449.         <text>Sean 09</text>
  450.     </content>
  451.     <content>
  452.         <layer>background</layer>
  453.         <id>335</id>
  454.         <text>Heavenly Hunks:8-bit PICT Reduced:Sean:Sean 09.R</text>
  455.     </content>
  456.     <content>
  457.         <layer>background</layer>
  458.         <id>311</id>
  459.         <text>Heavenly Hunks:24-bit TIF:Sean:Sean 09.TIF</text>
  460.     </content>
  461.     <content>
  462.         <layer>background</layer>
  463.         <id>331</id>
  464.         <text>Heavenly Hunks:8-bit PICT:Sean:Sean 09.PICT</text>
  465.     </content>
  466.     <name></name>
  467.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  468. </card>
  469.  
  470.  
  471. card_8905.xml
  472. <?xml version="1.0" encoding="utf-8" ?>
  473. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  474. <card>
  475.     <id>8905</id>
  476.     <filler1>0</filler1>
  477.     <cantDelete> <false /> </cantDelete>
  478.     <showPict> <true /> </showPict>
  479.     <dontSearch> <false /> </dontSearch>
  480.     <owner>2566</owner>
  481.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  482.     <content>
  483.         <layer>background</layer>
  484.         <id>106</id>
  485.         <text>Sean 08</text>
  486.     </content>
  487.     <content>
  488.         <layer>background</layer>
  489.         <id>335</id>
  490.         <text>Heavenly Hunks:8-bit PICT Reduced:Sean:Sean 08.R</text>
  491.     </content>
  492.     <content>
  493.         <layer>background</layer>
  494.         <id>311</id>
  495.         <text>Heavenly Hunks:24-bit TIF:Sean:Sean 08.TIF</text>
  496.     </content>
  497.     <content>
  498.         <layer>background</layer>
  499.         <id>331</id>
  500.         <text>Heavenly Hunks:8-bit PICT:Sean:Sean 08.PICT</text>
  501.     </content>
  502.     <name></name>
  503.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  504. </card>
  505.  
  506.  
  507. card_8624.xml
  508. <?xml version="1.0" encoding="utf-8" ?>
  509. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  510. <card>
  511.     <id>8624</id>
  512.     <filler1>0</filler1>
  513.     <cantDelete> <false /> </cantDelete>
  514.     <showPict> <true /> </showPict>
  515.     <dontSearch> <false /> </dontSearch>
  516.     <owner>2566</owner>
  517.     <marked><true /></marked>
  518.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  519.     <content>
  520.         <layer>background</layer>
  521.         <id>106</id>
  522.         <text>Sean 07</text>
  523.     </content>
  524.     <content>
  525.         <layer>background</layer>
  526.         <id>335</id>
  527.         <text>Heavenly Hunks:8-bit PICT Reduced:Sean:Sean 07.R</text>
  528.     </content>
  529.     <content>
  530.         <layer>background</layer>
  531.         <id>311</id>
  532.         <text>Heavenly Hunks:24-bit TIF:Sean:Sean 07.TIF</text>
  533.     </content>
  534.     <content>
  535.         <layer>background</layer>
  536.         <id>331</id>
  537.         <text>Heavenly Hunks:8-bit PICT:Sean:Sean 07.PICT</text>
  538.     </content>
  539.     <name></name>
  540.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  541. </card>
  542.  
  543.  
  544. card_8336.xml
  545. <?xml version="1.0" encoding="utf-8" ?>
  546. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  547. <card>
  548.     <id>8336</id>
  549.     <filler1>0</filler1>
  550.     <cantDelete> <false /> </cantDelete>
  551.     <showPict> <true /> </showPict>
  552.     <dontSearch> <false /> </dontSearch>
  553.     <owner>2566</owner>
  554.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  555.     <content>
  556.         <layer>background</layer>
  557.         <id>106</id>
  558.         <text>Sean 06</text>
  559.     </content>
  560.     <content>
  561.         <layer>background</layer>
  562.         <id>335</id>
  563.         <text>Heavenly Hunks:8-bit PICT Reduced:Sean:Sean 06.R</text>
  564.     </content>
  565.     <content>
  566.         <layer>background</layer>
  567.         <id>311</id>
  568.         <text>Heavenly Hunks:24-bit TIF:Sean:Sean 06.TIF</text>
  569.     </content>
  570.     <content>
  571.         <layer>background</layer>
  572.         <id>331</id>
  573.         <text>Heavenly Hunks:8-bit PICT:Sean:Sean 06.PICT</text>
  574.     </content>
  575.     <name></name>
  576.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  577. </card>
  578.  
  579.  
  580. card_8108.xml
  581. <?xml version="1.0" encoding="utf-8" ?>
  582. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  583. <card>
  584.     <id>8108</id>
  585.     <filler1>0</filler1>
  586.     <cantDelete> <false /> </cantDelete>
  587.     <showPict> <true /> </showPict>
  588.     <dontSearch> <false /> </dontSearch>
  589.     <owner>2566</owner>
  590.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  591.     <content>
  592.         <layer>background</layer>
  593.         <id>106</id>
  594.         <text>Sean 05</text>
  595.     </content>
  596.     <content>
  597.         <layer>background</layer>
  598.         <id>335</id>
  599.         <text>Heavenly Hunks:8-bit PICT Reduced:Sean:Sean 05.R</text>
  600.     </content>
  601.     <content>
  602.         <layer>background</layer>
  603.         <id>311</id>
  604.         <text>Heavenly Hunks:24-bit TIF:Sean:Sean 05.TIF</text>
  605.     </content>
  606.     <content>
  607.         <layer>background</layer>
  608.         <id>331</id>
  609.         <text>Heavenly Hunks:8-bit PICT:Sean:Sean 05.PICT</text>
  610.     </content>
  611.     <name></name>
  612.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  613. </card>
  614.  
  615.  
  616. card_7838.xml
  617. <?xml version="1.0" encoding="utf-8" ?>
  618. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  619. <card>
  620.     <id>7838</id>
  621.     <filler1>0</filler1>
  622.     <cantDelete> <false /> </cantDelete>
  623.     <showPict> <true /> </showPict>
  624.     <dontSearch> <false /> </dontSearch>
  625.     <owner>2566</owner>
  626.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  627.     <content>
  628.         <layer>background</layer>
  629.         <id>106</id>
  630.         <text>Sean 04</text>
  631.     </content>
  632.     <content>
  633.         <layer>background</layer>
  634.         <id>335</id>
  635.         <text>Heavenly Hunks:8-bit PICT Reduced:Sean:Sean 04.R</text>
  636.     </content>
  637.     <content>
  638.         <layer>background</layer>
  639.         <id>311</id>
  640.         <text>Heavenly Hunks:24-bit TIF:Sean:Sean 04.TIF</text>
  641.     </content>
  642.     <content>
  643.         <layer>background</layer>
  644.         <id>331</id>
  645.         <text>Heavenly Hunks:8-bit PICT:Sean:Sean 04.PICT</text>
  646.     </content>
  647.     <name></name>
  648.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  649. </card>
  650.  
  651.  
  652. card_7604.xml
  653. <?xml version="1.0" encoding="utf-8" ?>
  654. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  655. <card>
  656.     <id>7604</id>
  657.     <filler1>0</filler1>
  658.     <cantDelete> <false /> </cantDelete>
  659.     <showPict> <true /> </showPict>
  660.     <dontSearch> <false /> </dontSearch>
  661.     <owner>2566</owner>
  662.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  663.     <content>
  664.         <layer>background</layer>
  665.         <id>106</id>
  666.         <text>Sean 03</text>
  667.     </content>
  668.     <content>
  669.         <layer>background</layer>
  670.         <id>335</id>
  671.         <text>Heavenly Hunks:8-bit PICT Reduced:Sean:Sean 03.R</text>
  672.     </content>
  673.     <content>
  674.         <layer>background</layer>
  675.         <id>311</id>
  676.         <text>Heavenly Hunks:24-bit TIF:Sean:Sean 03.TIF</text>
  677.     </content>
  678.     <content>
  679.         <layer>background</layer>
  680.         <id>331</id>
  681.         <text>Heavenly Hunks:8-bit PICT:Sean:Sean 03.PICT</text>
  682.     </content>
  683.     <name></name>
  684.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  685. </card>
  686.  
  687.  
  688. card_7257.xml
  689. <?xml version="1.0" encoding="utf-8" ?>
  690. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  691. <card>
  692.     <id>7257</id>
  693.     <filler1>0</filler1>
  694.     <cantDelete> <false /> </cantDelete>
  695.     <showPict> <true /> </showPict>
  696.     <dontSearch> <false /> </dontSearch>
  697.     <owner>2566</owner>
  698.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  699.     <content>
  700.         <layer>background</layer>
  701.         <id>106</id>
  702.         <text>Sean 02</text>
  703.     </content>
  704.     <content>
  705.         <layer>background</layer>
  706.         <id>335</id>
  707.         <text>Heavenly Hunks:8-bit PICT Reduced:Sean:Sean 02.R</text>
  708.     </content>
  709.     <content>
  710.         <layer>background</layer>
  711.         <id>311</id>
  712.         <text>Heavenly Hunks:24-bit TIF:Sean:Sean 02.TIF</text>
  713.     </content>
  714.     <content>
  715.         <layer>background</layer>
  716.         <id>331</id>
  717.         <text>Heavenly Hunks:8-bit PICT:Sean:Sean 02.PICT</text>
  718.     </content>
  719.     <name></name>
  720.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  721. </card>
  722.  
  723.  
  724. card_7163.xml
  725. <?xml version="1.0" encoding="utf-8" ?>
  726. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  727. <card>
  728.     <id>7163</id>
  729.     <filler1>0</filler1>
  730.     <cantDelete> <false /> </cantDelete>
  731.     <showPict> <true /> </showPict>
  732.     <dontSearch> <false /> </dontSearch>
  733.     <owner>2566</owner>
  734.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  735.     <content>
  736.         <layer>background</layer>
  737.         <id>106</id>
  738.         <text>Sean 01</text>
  739.     </content>
  740.     <content>
  741.         <layer>background</layer>
  742.         <id>335</id>
  743.         <text>Heavenly Hunks:8-bit PICT Reduced:Sean:Sean 01.R</text>
  744.     </content>
  745.     <content>
  746.         <layer>background</layer>
  747.         <id>311</id>
  748.         <text>Heavenly Hunks:24-bit TIF:Sean:Sean 01.TIF</text>
  749.     </content>
  750.     <content>
  751.         <layer>background</layer>
  752.         <id>331</id>
  753.         <text>Heavenly Hunks:8-bit PICT:Sean:Sean 01.PICT</text>
  754.     </content>
  755.     <name></name>
  756.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  757. </card>
  758.  
  759.  
  760. card_11883.xml
  761. <?xml version="1.0" encoding="utf-8" ?>
  762. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  763. <card>
  764.     <id>11883</id>
  765.     <filler1>0</filler1>
  766.     <cantDelete> <false /> </cantDelete>
  767.     <showPict> <true /> </showPict>
  768.     <dontSearch> <false /> </dontSearch>
  769.     <owner>2566</owner>
  770.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  771.     <content>
  772.         <layer>background</layer>
  773.         <id>106</id>
  774.         <text>Rusty 08</text>
  775.     </content>
  776.     <content>
  777.         <layer>background</layer>
  778.         <id>335</id>
  779.         <text>Heavenly Hunks:8-bit PICT Reduced:Rusty:Rusty 08.R</text>
  780.     </content>
  781.     <content>
  782.         <layer>background</layer>
  783.         <id>311</id>
  784.         <text>Heavenly Hunks:24-bit TIF:Rusty:Rusty 08.TIF</text>
  785.     </content>
  786.     <content>
  787.         <layer>background</layer>
  788.         <id>331</id>
  789.         <text>Heavenly Hunks:8-bit PICT:Rusty:Rusty 08.PICT</text>
  790.     </content>
  791.     <name></name>
  792.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  793. </card>
  794.  
  795.  
  796. card_11390.xml
  797. <?xml version="1.0" encoding="utf-8" ?>
  798. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  799. <card>
  800.     <id>11390</id>
  801.     <filler1>0</filler1>
  802.     <cantDelete> <false /> </cantDelete>
  803.     <showPict> <true /> </showPict>
  804.     <dontSearch> <false /> </dontSearch>
  805.     <owner>2566</owner>
  806.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  807.     <content>
  808.         <layer>background</layer>
  809.         <id>106</id>
  810.         <text>Rusty 07</text>
  811.     </content>
  812.     <content>
  813.         <layer>background</layer>
  814.         <id>335</id>
  815.         <text>Heavenly Hunks:8-bit PICT Reduced:Rusty:Rusty 07.R</text>
  816.     </content>
  817.     <content>
  818.         <layer>background</layer>
  819.         <id>311</id>
  820.         <text>Heavenly Hunks:24-bit TIF:Rusty:Rusty 07.TIF</text>
  821.     </content>
  822.     <content>
  823.         <layer>background</layer>
  824.         <id>331</id>
  825.         <text>Heavenly Hunks:8-bit PICT:Rusty:Rusty 07.PICT</text>
  826.     </content>
  827.     <name></name>
  828.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  829. </card>
  830.  
  831.  
  832. card_10859.xml
  833. <?xml version="1.0" encoding="utf-8" ?>
  834. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  835. <card>
  836.     <id>10859</id>
  837.     <filler1>0</filler1>
  838.     <cantDelete> <false /> </cantDelete>
  839.     <showPict> <true /> </showPict>
  840.     <dontSearch> <false /> </dontSearch>
  841.     <owner>2566</owner>
  842.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  843.     <content>
  844.         <layer>background</layer>
  845.         <id>106</id>
  846.         <text>Rusty 06</text>
  847.     </content>
  848.     <content>
  849.         <layer>background</layer>
  850.         <id>335</id>
  851.         <text>Heavenly Hunks:8-bit PICT Reduced:Rusty:Rusty 06.R</text>
  852.     </content>
  853.     <content>
  854.         <layer>background</layer>
  855.         <id>311</id>
  856.         <text>Heavenly Hunks:24-bit TIF:Rusty:Rusty 06.TIF</text>
  857.     </content>
  858.     <content>
  859.         <layer>background</layer>
  860.         <id>331</id>
  861.         <text>Heavenly Hunks:8-bit PICT:Rusty:Rusty 06.PICT</text>
  862.     </content>
  863.     <name></name>
  864.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  865. </card>
  866.  
  867.  
  868. card_10686.xml
  869. <?xml version="1.0" encoding="utf-8" ?>
  870. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  871. <card>
  872.     <id>10686</id>
  873.     <filler1>0</filler1>
  874.     <cantDelete> <false /> </cantDelete>
  875.     <showPict> <true /> </showPict>
  876.     <dontSearch> <false /> </dontSearch>
  877.     <owner>2566</owner>
  878.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  879.     <content>
  880.         <layer>background</layer>
  881.         <id>106</id>
  882.         <text>Rusty 05</text>
  883.     </content>
  884.     <content>
  885.         <layer>background</layer>
  886.         <id>335</id>
  887.         <text>Heavenly Hunks:8-bit PICT Reduced:Rusty:Rusty 05.R</text>
  888.     </content>
  889.     <content>
  890.         <layer>background</layer>
  891.         <id>311</id>
  892.         <text>Heavenly Hunks:24-bit TIF:Rusty:Rusty 05.TIF</text>
  893.     </content>
  894.     <content>
  895.         <layer>background</layer>
  896.         <id>331</id>
  897.         <text>Heavenly Hunks:8-bit PICT:Rusty:Rusty 05.PICT</text>
  898.     </content>
  899.     <name></name>
  900.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  901. </card>
  902.  
  903.  
  904. card_10345.xml
  905. <?xml version="1.0" encoding="utf-8" ?>
  906. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  907. <card>
  908.     <id>10345</id>
  909.     <filler1>0</filler1>
  910.     <cantDelete> <false /> </cantDelete>
  911.     <showPict> <true /> </showPict>
  912.     <dontSearch> <false /> </dontSearch>
  913.     <owner>2566</owner>
  914.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  915.     <content>
  916.         <layer>background</layer>
  917.         <id>106</id>
  918.         <text>Rusty 04</text>
  919.     </content>
  920.     <content>
  921.         <layer>background</layer>
  922.         <id>335</id>
  923.         <text>Heavenly Hunks:8-bit PICT Reduced:Rusty:Rusty 04.R</text>
  924.     </content>
  925.     <content>
  926.         <layer>background</layer>
  927.         <id>311</id>
  928.         <text>Heavenly Hunks:24-bit TIF:Rusty:Rusty 04.TIF</text>
  929.     </content>
  930.     <content>
  931.         <layer>background</layer>
  932.         <id>331</id>
  933.         <text>Heavenly Hunks:8-bit PICT:Rusty:Rusty 04.PICT</text>
  934.     </content>
  935.     <name></name>
  936.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  937. </card>
  938.  
  939.  
  940. card_10002.xml
  941. <?xml version="1.0" encoding="utf-8" ?>
  942. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  943. <card>
  944.     <id>10002</id>
  945.     <filler1>0</filler1>
  946.     <cantDelete> <false /> </cantDelete>
  947.     <showPict> <true /> </showPict>
  948.     <dontSearch> <false /> </dontSearch>
  949.     <owner>2566</owner>
  950.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  951.     <content>
  952.         <layer>background</layer>
  953.         <id>106</id>
  954.         <text>Rusty 03</text>
  955.     </content>
  956.     <content>
  957.         <layer>background</layer>
  958.         <id>335</id>
  959.         <text>Heavenly Hunks:8-bit PICT Reduced:Rusty:Rusty 03.R</text>
  960.     </content>
  961.     <content>
  962.         <layer>background</layer>
  963.         <id>311</id>
  964.         <text>Heavenly Hunks:24-bit TIF:Rusty:Rusty 03.TIF</text>
  965.     </content>
  966.     <content>
  967.         <layer>background</layer>
  968.         <id>331</id>
  969.         <text>Heavenly Hunks:8-bit PICT:Rusty:Rusty 03.PICT</text>
  970.     </content>
  971.     <name></name>
  972.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  973. </card>
  974.  
  975.  
  976. card_9779.xml
  977. <?xml version="1.0" encoding="utf-8" ?>
  978. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  979. <card>
  980.     <id>9779</id>
  981.     <filler1>0</filler1>
  982.     <cantDelete> <false /> </cantDelete>
  983.     <showPict> <true /> </showPict>
  984.     <dontSearch> <false /> </dontSearch>
  985.     <owner>2566</owner>
  986.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  987.     <content>
  988.         <layer>background</layer>
  989.         <id>106</id>
  990.         <text>Rusty 02</text>
  991.     </content>
  992.     <content>
  993.         <layer>background</layer>
  994.         <id>335</id>
  995.         <text>Heavenly Hunks:8-bit PICT Reduced:Rusty:Rusty 02.R</text>
  996.     </content>
  997.     <content>
  998.         <layer>background</layer>
  999.         <id>311</id>
  1000.         <text>Heavenly Hunks:24-bit TIF:Rusty:Rusty 02.TIF</text>
  1001.     </content>
  1002.     <content>
  1003.         <layer>background</layer>
  1004.         <id>331</id>
  1005.         <text>Heavenly Hunks:8-bit PICT:Rusty:Rusty 02.PICT</text>
  1006.     </content>
  1007.     <name></name>
  1008.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1009. </card>
  1010.  
  1011.  
  1012. card_9627.xml
  1013. <?xml version="1.0" encoding="utf-8" ?>
  1014. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1015. <card>
  1016.     <id>9627</id>
  1017.     <filler1>0</filler1>
  1018.     <cantDelete> <false /> </cantDelete>
  1019.     <showPict> <true /> </showPict>
  1020.     <dontSearch> <false /> </dontSearch>
  1021.     <owner>2566</owner>
  1022.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1023.     <content>
  1024.         <layer>background</layer>
  1025.         <id>106</id>
  1026.         <text>Rusty 01</text>
  1027.     </content>
  1028.     <content>
  1029.         <layer>background</layer>
  1030.         <id>335</id>
  1031.         <text>Heavenly Hunks:8-bit PICT Reduced:Rusty:Rusty 01.R</text>
  1032.     </content>
  1033.     <content>
  1034.         <layer>background</layer>
  1035.         <id>311</id>
  1036.         <text>Heavenly Hunks:24-bit TIF:Rusty:Rusty 01.TIF</text>
  1037.     </content>
  1038.     <content>
  1039.         <layer>background</layer>
  1040.         <id>331</id>
  1041.         <text>Heavenly Hunks:8-bit PICT:Rusty:Rusty 01.PICT</text>
  1042.     </content>
  1043.     <name></name>
  1044.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1045. </card>
  1046.  
  1047.  
  1048. card_14468.xml
  1049. <?xml version="1.0" encoding="utf-8" ?>
  1050. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1051. <card>
  1052.     <id>14468</id>
  1053.     <filler1>0</filler1>
  1054.     <cantDelete> <false /> </cantDelete>
  1055.     <showPict> <true /> </showPict>
  1056.     <dontSearch> <false /> </dontSearch>
  1057.     <owner>2566</owner>
  1058.     <marked><true /></marked>
  1059.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1060.     <content>
  1061.         <layer>background</layer>
  1062.         <id>106</id>
  1063.         <text>Rod 9</text>
  1064.     </content>
  1065.     <content>
  1066.         <layer>background</layer>
  1067.         <id>335</id>
  1068.         <text>Heavenly Hunks:8-bit PICT Reduced:Rod:Rod 9.R</text>
  1069.     </content>
  1070.     <content>
  1071.         <layer>background</layer>
  1072.         <id>311</id>
  1073.         <text>Heavenly Hunks:24-bit TIF:Rod:Rod 9.TIF</text>
  1074.     </content>
  1075.     <content>
  1076.         <layer>background</layer>
  1077.         <id>331</id>
  1078.         <text>Heavenly Hunks:8-bit PICT:Rod:Rod 9.PICT</text>
  1079.     </content>
  1080.     <name></name>
  1081.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1082. </card>
  1083.  
  1084.  
  1085. card_14176.xml
  1086. <?xml version="1.0" encoding="utf-8" ?>
  1087. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1088. <card>
  1089.     <id>14176</id>
  1090.     <filler1>0</filler1>
  1091.     <cantDelete> <false /> </cantDelete>
  1092.     <showPict> <true /> </showPict>
  1093.     <dontSearch> <false /> </dontSearch>
  1094.     <owner>2566</owner>
  1095.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1096.     <content>
  1097.         <layer>background</layer>
  1098.         <id>106</id>
  1099.         <text>Rod 8</text>
  1100.     </content>
  1101.     <content>
  1102.         <layer>background</layer>
  1103.         <id>335</id>
  1104.         <text>Heavenly Hunks:8-bit PICT Reduced:Rod:Rod 8.R</text>
  1105.     </content>
  1106.     <content>
  1107.         <layer>background</layer>
  1108.         <id>311</id>
  1109.         <text>Heavenly Hunks:24-bit TIF:Rod:Rod 8.TIF</text>
  1110.     </content>
  1111.     <content>
  1112.         <layer>background</layer>
  1113.         <id>331</id>
  1114.         <text>Heavenly Hunks:8-bit PICT:Rod:Rod 8.PICT</text>
  1115.     </content>
  1116.     <name></name>
  1117.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1118. </card>
  1119.  
  1120.  
  1121. card_14027.xml
  1122. <?xml version="1.0" encoding="utf-8" ?>
  1123. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1124. <card>
  1125.     <id>14027</id>
  1126.     <filler1>0</filler1>
  1127.     <cantDelete> <false /> </cantDelete>
  1128.     <showPict> <true /> </showPict>
  1129.     <dontSearch> <false /> </dontSearch>
  1130.     <owner>2566</owner>
  1131.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1132.     <content>
  1133.         <layer>background</layer>
  1134.         <id>106</id>
  1135.         <text>Rod 7</text>
  1136.     </content>
  1137.     <content>
  1138.         <layer>background</layer>
  1139.         <id>335</id>
  1140.         <text>Heavenly Hunks:8-bit PICT Reduced:Rod:Rod 7.R</text>
  1141.     </content>
  1142.     <content>
  1143.         <layer>background</layer>
  1144.         <id>311</id>
  1145.         <text>Heavenly Hunks:24-bit TIF:Rod:Rod 7.TIF</text>
  1146.     </content>
  1147.     <content>
  1148.         <layer>background</layer>
  1149.         <id>331</id>
  1150.         <text>Heavenly Hunks:8-bit PICT:Rod:Rod 7.PICT</text>
  1151.     </content>
  1152.     <name></name>
  1153.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1154. </card>
  1155.  
  1156.  
  1157. card_13799.xml
  1158. <?xml version="1.0" encoding="utf-8" ?>
  1159. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1160. <card>
  1161.     <id>13799</id>
  1162.     <filler1>0</filler1>
  1163.     <cantDelete> <false /> </cantDelete>
  1164.     <showPict> <true /> </showPict>
  1165.     <dontSearch> <false /> </dontSearch>
  1166.     <owner>2566</owner>
  1167.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1168.     <content>
  1169.         <layer>background</layer>
  1170.         <id>106</id>
  1171.         <text>Rod 6</text>
  1172.     </content>
  1173.     <content>
  1174.         <layer>background</layer>
  1175.         <id>335</id>
  1176.         <text>Heavenly Hunks:8-bit PICT Reduced:Rod:Rod 6.R</text>
  1177.     </content>
  1178.     <content>
  1179.         <layer>background</layer>
  1180.         <id>311</id>
  1181.         <text>Heavenly Hunks:24-bit TIF:Rod:Rod 6.TIF</text>
  1182.     </content>
  1183.     <content>
  1184.         <layer>background</layer>
  1185.         <id>331</id>
  1186.         <text>Heavenly Hunks:8-bit PICT:Rod:Rod 6.PICT</text>
  1187.     </content>
  1188.     <name></name>
  1189.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1190. </card>
  1191.  
  1192.  
  1193. card_13426.xml
  1194. <?xml version="1.0" encoding="utf-8" ?>
  1195. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1196. <card>
  1197.     <id>13426</id>
  1198.     <filler1>0</filler1>
  1199.     <cantDelete> <false /> </cantDelete>
  1200.     <showPict> <true /> </showPict>
  1201.     <dontSearch> <false /> </dontSearch>
  1202.     <owner>2566</owner>
  1203.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1204.     <content>
  1205.         <layer>background</layer>
  1206.         <id>106</id>
  1207.         <text>Rod 5</text>
  1208.     </content>
  1209.     <content>
  1210.         <layer>background</layer>
  1211.         <id>335</id>
  1212.         <text>Heavenly Hunks:8-bit PICT Reduced:Rod:Rod 5.R</text>
  1213.     </content>
  1214.     <content>
  1215.         <layer>background</layer>
  1216.         <id>311</id>
  1217.         <text>Heavenly Hunks:24-bit TIF:Rod:Rod 5.TIF</text>
  1218.     </content>
  1219.     <content>
  1220.         <layer>background</layer>
  1221.         <id>331</id>
  1222.         <text>Heavenly Hunks:8-bit PICT:Rod:Rod 5.PICT</text>
  1223.     </content>
  1224.     <name></name>
  1225.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1226. </card>
  1227.  
  1228.  
  1229. card_13204.xml
  1230. <?xml version="1.0" encoding="utf-8" ?>
  1231. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1232. <card>
  1233.     <id>13204</id>
  1234.     <filler1>0</filler1>
  1235.     <cantDelete> <false /> </cantDelete>
  1236.     <showPict> <true /> </showPict>
  1237.     <dontSearch> <false /> </dontSearch>
  1238.     <owner>2566</owner>
  1239.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1240.     <content>
  1241.         <layer>background</layer>
  1242.         <id>106</id>
  1243.         <text>Rod 10</text>
  1244.     </content>
  1245.     <content>
  1246.         <layer>background</layer>
  1247.         <id>335</id>
  1248.         <text>Heavenly Hunks:8-bit PICT Reduced:Rod:Rod 10.R</text>
  1249.     </content>
  1250.     <content>
  1251.         <layer>background</layer>
  1252.         <id>311</id>
  1253.         <text>Heavenly Hunks:24-bit TIF:Rod:Rod 10.TIF</text>
  1254.     </content>
  1255.     <content>
  1256.         <layer>background</layer>
  1257.         <id>331</id>
  1258.         <text>Heavenly Hunks:8-bit PICT:Rod:Rod 10.PICT</text>
  1259.     </content>
  1260.     <name></name>
  1261.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1262. </card>
  1263.  
  1264.  
  1265. card_12937.xml
  1266. <?xml version="1.0" encoding="utf-8" ?>
  1267. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1268. <card>
  1269.     <id>12937</id>
  1270.     <filler1>0</filler1>
  1271.     <cantDelete> <false /> </cantDelete>
  1272.     <showPict> <true /> </showPict>
  1273.     <dontSearch> <false /> </dontSearch>
  1274.     <owner>2566</owner>
  1275.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1276.     <content>
  1277.         <layer>background</layer>
  1278.         <id>106</id>
  1279.         <text>Rod 04</text>
  1280.     </content>
  1281.     <content>
  1282.         <layer>background</layer>
  1283.         <id>335</id>
  1284.         <text>Heavenly Hunks:8-bit PICT Reduced:Rod:Rod 04.R</text>
  1285.     </content>
  1286.     <content>
  1287.         <layer>background</layer>
  1288.         <id>311</id>
  1289.         <text>Heavenly Hunks:24-bit TIF:Rod:Rod 04.TIF</text>
  1290.     </content>
  1291.     <content>
  1292.         <layer>background</layer>
  1293.         <id>331</id>
  1294.         <text>Heavenly Hunks:8-bit PICT:Rod:Rod 04.PICT</text>
  1295.     </content>
  1296.     <name></name>
  1297.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1298. </card>
  1299.  
  1300.  
  1301. card_12669.xml
  1302. <?xml version="1.0" encoding="utf-8" ?>
  1303. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1304. <card>
  1305.     <id>12669</id>
  1306.     <filler1>0</filler1>
  1307.     <cantDelete> <false /> </cantDelete>
  1308.     <showPict> <true /> </showPict>
  1309.     <dontSearch> <false /> </dontSearch>
  1310.     <owner>2566</owner>
  1311.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1312.     <content>
  1313.         <layer>background</layer>
  1314.         <id>106</id>
  1315.         <text>Rod 03</text>
  1316.     </content>
  1317.     <content>
  1318.         <layer>background</layer>
  1319.         <id>335</id>
  1320.         <text>Heavenly Hunks:8-bit PICT Reduced:Rod:Rod 03.R</text>
  1321.     </content>
  1322.     <content>
  1323.         <layer>background</layer>
  1324.         <id>311</id>
  1325.         <text>Heavenly Hunks:24-bit TIF:Rod:Rod 03.TIF</text>
  1326.     </content>
  1327.     <content>
  1328.         <layer>background</layer>
  1329.         <id>331</id>
  1330.         <text>Heavenly Hunks:8-bit PICT:Rod:Rod 03.PICT</text>
  1331.     </content>
  1332.     <name></name>
  1333.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1334. </card>
  1335.  
  1336.  
  1337. card_12382.xml
  1338. <?xml version="1.0" encoding="utf-8" ?>
  1339. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1340. <card>
  1341.     <id>12382</id>
  1342.     <filler1>0</filler1>
  1343.     <cantDelete> <false /> </cantDelete>
  1344.     <showPict> <true /> </showPict>
  1345.     <dontSearch> <false /> </dontSearch>
  1346.     <owner>2566</owner>
  1347.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1348.     <content>
  1349.         <layer>background</layer>
  1350.         <id>106</id>
  1351.         <text>Rod 02</text>
  1352.     </content>
  1353.     <content>
  1354.         <layer>background</layer>
  1355.         <id>335</id>
  1356.         <text>Heavenly Hunks:8-bit PICT Reduced:Rod:Rod 02.R</text>
  1357.     </content>
  1358.     <content>
  1359.         <layer>background</layer>
  1360.         <id>311</id>
  1361.         <text>Heavenly Hunks:24-bit TIF:Rod:Rod 02.TIF</text>
  1362.     </content>
  1363.     <content>
  1364.         <layer>background</layer>
  1365.         <id>331</id>
  1366.         <text>Heavenly Hunks:8-bit PICT:Rod:Rod 02.PICT</text>
  1367.     </content>
  1368.     <name></name>
  1369.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1370. </card>
  1371.  
  1372.  
  1373. card_12233.xml
  1374. <?xml version="1.0" encoding="utf-8" ?>
  1375. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1376. <card>
  1377.     <id>12233</id>
  1378.     <filler1>0</filler1>
  1379.     <cantDelete> <false /> </cantDelete>
  1380.     <showPict> <true /> </showPict>
  1381.     <dontSearch> <false /> </dontSearch>
  1382.     <owner>2566</owner>
  1383.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1384.     <content>
  1385.         <layer>background</layer>
  1386.         <id>106</id>
  1387.         <text>Rod 01</text>
  1388.     </content>
  1389.     <content>
  1390.         <layer>background</layer>
  1391.         <id>335</id>
  1392.         <text>Heavenly Hunks:8-bit PICT Reduced:Rod:Rod 01.R</text>
  1393.     </content>
  1394.     <content>
  1395.         <layer>background</layer>
  1396.         <id>311</id>
  1397.         <text>Heavenly Hunks:24-bit TIF:Rod:Rod 01.TIF</text>
  1398.     </content>
  1399.     <content>
  1400.         <layer>background</layer>
  1401.         <id>331</id>
  1402.         <text>Heavenly Hunks:8-bit PICT:Rod:Rod 01.PICT</text>
  1403.     </content>
  1404.     <name></name>
  1405.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1406. </card>
  1407.  
  1408.  
  1409. card_16299.xml
  1410. <?xml version="1.0" encoding="utf-8" ?>
  1411. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1412. <card>
  1413.     <id>16299</id>
  1414.     <filler1>0</filler1>
  1415.     <cantDelete> <false /> </cantDelete>
  1416.     <showPict> <true /> </showPict>
  1417.     <dontSearch> <false /> </dontSearch>
  1418.     <owner>2566</owner>
  1419.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1420.     <content>
  1421.         <layer>background</layer>
  1422.         <id>106</id>
  1423.         <text>Roberto 9</text>
  1424.     </content>
  1425.     <content>
  1426.         <layer>background</layer>
  1427.         <id>335</id>
  1428.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 9.R</text>
  1429.     </content>
  1430.     <content>
  1431.         <layer>background</layer>
  1432.         <id>311</id>
  1433.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 9.TIF</text>
  1434.     </content>
  1435.     <content>
  1436.         <layer>background</layer>
  1437.         <id>331</id>
  1438.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 9.PICT</text>
  1439.     </content>
  1440.     <name></name>
  1441.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1442. </card>
  1443.  
  1444.  
  1445. card_18679.xml
  1446. <?xml version="1.0" encoding="utf-8" ?>
  1447. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1448. <card>
  1449.     <id>18679</id>
  1450.     <filler1>0</filler1>
  1451.     <cantDelete> <false /> </cantDelete>
  1452.     <showPict> <true /> </showPict>
  1453.     <dontSearch> <false /> </dontSearch>
  1454.     <owner>2566</owner>
  1455.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1456.     <content>
  1457.         <layer>background</layer>
  1458.         <id>106</id>
  1459.         <text>Roberto 8</text>
  1460.     </content>
  1461.     <content>
  1462.         <layer>background</layer>
  1463.         <id>335</id>
  1464.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 8.R</text>
  1465.     </content>
  1466.     <content>
  1467.         <layer>background</layer>
  1468.         <id>311</id>
  1469.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 8.TIF</text>
  1470.     </content>
  1471.     <content>
  1472.         <layer>background</layer>
  1473.         <id>331</id>
  1474.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 8.PICT</text>
  1475.     </content>
  1476.     <name></name>
  1477.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1478. </card>
  1479.  
  1480.  
  1481. card_18207.xml
  1482. <?xml version="1.0" encoding="utf-8" ?>
  1483. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1484. <card>
  1485.     <id>18207</id>
  1486.     <filler1>0</filler1>
  1487.     <cantDelete> <false /> </cantDelete>
  1488.     <showPict> <true /> </showPict>
  1489.     <dontSearch> <false /> </dontSearch>
  1490.     <owner>2566</owner>
  1491.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1492.     <content>
  1493.         <layer>background</layer>
  1494.         <id>106</id>
  1495.         <text>Roberto 7</text>
  1496.     </content>
  1497.     <content>
  1498.         <layer>background</layer>
  1499.         <id>335</id>
  1500.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 7.R</text>
  1501.     </content>
  1502.     <content>
  1503.         <layer>background</layer>
  1504.         <id>311</id>
  1505.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 7.TIF</text>
  1506.     </content>
  1507.     <content>
  1508.         <layer>background</layer>
  1509.         <id>331</id>
  1510.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 7.PICT</text>
  1511.     </content>
  1512.     <name></name>
  1513.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1514. </card>
  1515.  
  1516.  
  1517. card_17998.xml
  1518. <?xml version="1.0" encoding="utf-8" ?>
  1519. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1520. <card>
  1521.     <id>17998</id>
  1522.     <filler1>0</filler1>
  1523.     <cantDelete> <false /> </cantDelete>
  1524.     <showPict> <true /> </showPict>
  1525.     <dontSearch> <false /> </dontSearch>
  1526.     <owner>2566</owner>
  1527.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1528.     <content>
  1529.         <layer>background</layer>
  1530.         <id>106</id>
  1531.         <text>Roberto 6</text>
  1532.     </content>
  1533.     <content>
  1534.         <layer>background</layer>
  1535.         <id>335</id>
  1536.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 6.R</text>
  1537.     </content>
  1538.     <content>
  1539.         <layer>background</layer>
  1540.         <id>311</id>
  1541.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 6.TIF</text>
  1542.     </content>
  1543.     <content>
  1544.         <layer>background</layer>
  1545.         <id>331</id>
  1546.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 6.PICT</text>
  1547.     </content>
  1548.     <name></name>
  1549.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1550. </card>
  1551.  
  1552.  
  1553. card_17886.xml
  1554. <?xml version="1.0" encoding="utf-8" ?>
  1555. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1556. <card>
  1557.     <id>17886</id>
  1558.     <filler1>0</filler1>
  1559.     <cantDelete> <false /> </cantDelete>
  1560.     <showPict> <true /> </showPict>
  1561.     <dontSearch> <false /> </dontSearch>
  1562.     <owner>2566</owner>
  1563.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1564.     <content>
  1565.         <layer>background</layer>
  1566.         <id>106</id>
  1567.         <text>Roberto 5</text>
  1568.     </content>
  1569.     <content>
  1570.         <layer>background</layer>
  1571.         <id>335</id>
  1572.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 5.R</text>
  1573.     </content>
  1574.     <content>
  1575.         <layer>background</layer>
  1576.         <id>311</id>
  1577.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 5.TIF</text>
  1578.     </content>
  1579.     <content>
  1580.         <layer>background</layer>
  1581.         <id>331</id>
  1582.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 5.PICT</text>
  1583.     </content>
  1584.     <name></name>
  1585.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1586. </card>
  1587.  
  1588.  
  1589. card_17294.xml
  1590. <?xml version="1.0" encoding="utf-8" ?>
  1591. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1592. <card>
  1593.     <id>17294</id>
  1594.     <filler1>0</filler1>
  1595.     <cantDelete> <false /> </cantDelete>
  1596.     <showPict> <true /> </showPict>
  1597.     <dontSearch> <false /> </dontSearch>
  1598.     <owner>2566</owner>
  1599.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1600.     <content>
  1601.         <layer>background</layer>
  1602.         <id>106</id>
  1603.         <text>Roberto 4</text>
  1604.     </content>
  1605.     <content>
  1606.         <layer>background</layer>
  1607.         <id>335</id>
  1608.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 4.R</text>
  1609.     </content>
  1610.     <content>
  1611.         <layer>background</layer>
  1612.         <id>311</id>
  1613.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 4.TIF</text>
  1614.     </content>
  1615.     <content>
  1616.         <layer>background</layer>
  1617.         <id>331</id>
  1618.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 4.PICT</text>
  1619.     </content>
  1620.     <name></name>
  1621.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1622. </card>
  1623.  
  1624.  
  1625. card_16670.xml
  1626. <?xml version="1.0" encoding="utf-8" ?>
  1627. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1628. <card>
  1629.     <id>16670</id>
  1630.     <filler1>0</filler1>
  1631.     <cantDelete> <false /> </cantDelete>
  1632.     <showPict> <true /> </showPict>
  1633.     <dontSearch> <false /> </dontSearch>
  1634.     <owner>2566</owner>
  1635.     <marked><true /></marked>
  1636.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1637.     <content>
  1638.         <layer>background</layer>
  1639.         <id>106</id>
  1640.         <text>Roberto 3</text>
  1641.     </content>
  1642.     <content>
  1643.         <layer>background</layer>
  1644.         <id>335</id>
  1645.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 3.R</text>
  1646.     </content>
  1647.     <content>
  1648.         <layer>background</layer>
  1649.         <id>311</id>
  1650.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 3.TIF</text>
  1651.     </content>
  1652.     <content>
  1653.         <layer>background</layer>
  1654.         <id>331</id>
  1655.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 3.PICT</text>
  1656.     </content>
  1657.     <name></name>
  1658.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1659. </card>
  1660.  
  1661.  
  1662. card_16579.xml
  1663. <?xml version="1.0" encoding="utf-8" ?>
  1664. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1665. <card>
  1666.     <id>16579</id>
  1667.     <filler1>0</filler1>
  1668.     <cantDelete> <false /> </cantDelete>
  1669.     <showPict> <true /> </showPict>
  1670.     <dontSearch> <false /> </dontSearch>
  1671.     <owner>2566</owner>
  1672.     <marked><true /></marked>
  1673.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1674.     <content>
  1675.         <layer>background</layer>
  1676.         <id>106</id>
  1677.         <text>Roberto 2</text>
  1678.     </content>
  1679.     <content>
  1680.         <layer>background</layer>
  1681.         <id>335</id>
  1682.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 2.R</text>
  1683.     </content>
  1684.     <content>
  1685.         <layer>background</layer>
  1686.         <id>311</id>
  1687.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 2.TIF</text>
  1688.     </content>
  1689.     <content>
  1690.         <layer>background</layer>
  1691.         <id>331</id>
  1692.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 2.PICT</text>
  1693.     </content>
  1694.     <name></name>
  1695.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1696. </card>
  1697.  
  1698.  
  1699. card_15897.xml
  1700. <?xml version="1.0" encoding="utf-8" ?>
  1701. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1702. <card>
  1703.     <id>15897</id>
  1704.     <filler1>0</filler1>
  1705.     <cantDelete> <false /> </cantDelete>
  1706.     <showPict> <true /> </showPict>
  1707.     <dontSearch> <false /> </dontSearch>
  1708.     <owner>2566</owner>
  1709.     <marked><true /></marked>
  1710.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1711.     <content>
  1712.         <layer>background</layer>
  1713.         <id>106</id>
  1714.         <text>Roberto 14</text>
  1715.     </content>
  1716.     <content>
  1717.         <layer>background</layer>
  1718.         <id>335</id>
  1719.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 14.R</text>
  1720.     </content>
  1721.     <content>
  1722.         <layer>background</layer>
  1723.         <id>311</id>
  1724.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 14.TIF</text>
  1725.     </content>
  1726.     <content>
  1727.         <layer>background</layer>
  1728.         <id>331</id>
  1729.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 14.PICT</text>
  1730.     </content>
  1731.     <name></name>
  1732.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1733. </card>
  1734.  
  1735.  
  1736. card_15865.xml
  1737. <?xml version="1.0" encoding="utf-8" ?>
  1738. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1739. <card>
  1740.     <id>15865</id>
  1741.     <filler1>0</filler1>
  1742.     <cantDelete> <false /> </cantDelete>
  1743.     <showPict> <true /> </showPict>
  1744.     <dontSearch> <false /> </dontSearch>
  1745.     <owner>2566</owner>
  1746.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1747.     <content>
  1748.         <layer>background</layer>
  1749.         <id>106</id>
  1750.         <text>Roberto 13</text>
  1751.     </content>
  1752.     <content>
  1753.         <layer>background</layer>
  1754.         <id>335</id>
  1755.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 13.R</text>
  1756.     </content>
  1757.     <content>
  1758.         <layer>background</layer>
  1759.         <id>311</id>
  1760.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 13.TIF</text>
  1761.     </content>
  1762.     <content>
  1763.         <layer>background</layer>
  1764.         <id>331</id>
  1765.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 13.PICT</text>
  1766.     </content>
  1767.     <name></name>
  1768.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1769. </card>
  1770.  
  1771.  
  1772. card_15581.xml
  1773. <?xml version="1.0" encoding="utf-8" ?>
  1774. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1775. <card>
  1776.     <id>15581</id>
  1777.     <filler1>0</filler1>
  1778.     <cantDelete> <false /> </cantDelete>
  1779.     <showPict> <true /> </showPict>
  1780.     <dontSearch> <false /> </dontSearch>
  1781.     <owner>2566</owner>
  1782.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1783.     <content>
  1784.         <layer>background</layer>
  1785.         <id>106</id>
  1786.         <text>Roberto 12</text>
  1787.     </content>
  1788.     <content>
  1789.         <layer>background</layer>
  1790.         <id>335</id>
  1791.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 12.R</text>
  1792.     </content>
  1793.     <content>
  1794.         <layer>background</layer>
  1795.         <id>311</id>
  1796.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 12.TIF</text>
  1797.     </content>
  1798.     <content>
  1799.         <layer>background</layer>
  1800.         <id>331</id>
  1801.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 12.PICT</text>
  1802.     </content>
  1803.     <name></name>
  1804.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1805. </card>
  1806.  
  1807.  
  1808. card_15180.xml
  1809. <?xml version="1.0" encoding="utf-8" ?>
  1810. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1811. <card>
  1812.     <id>15180</id>
  1813.     <filler1>0</filler1>
  1814.     <cantDelete> <false /> </cantDelete>
  1815.     <showPict> <true /> </showPict>
  1816.     <dontSearch> <false /> </dontSearch>
  1817.     <owner>2566</owner>
  1818.     <marked><true /></marked>
  1819.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1820.     <content>
  1821.         <layer>background</layer>
  1822.         <id>106</id>
  1823.         <text>Roberto 11</text>
  1824.     </content>
  1825.     <content>
  1826.         <layer>background</layer>
  1827.         <id>335</id>
  1828.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 11.R</text>
  1829.     </content>
  1830.     <content>
  1831.         <layer>background</layer>
  1832.         <id>311</id>
  1833.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 11.TIF</text>
  1834.     </content>
  1835.     <content>
  1836.         <layer>background</layer>
  1837.         <id>331</id>
  1838.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 11.PICT</text>
  1839.     </content>
  1840.     <name></name>
  1841.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1842. </card>
  1843.  
  1844.  
  1845. card_15030.xml
  1846. <?xml version="1.0" encoding="utf-8" ?>
  1847. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1848. <card>
  1849.     <id>15030</id>
  1850.     <filler1>0</filler1>
  1851.     <cantDelete> <false /> </cantDelete>
  1852.     <showPict> <true /> </showPict>
  1853.     <dontSearch> <false /> </dontSearch>
  1854.     <owner>2566</owner>
  1855.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1856.     <content>
  1857.         <layer>background</layer>
  1858.         <id>106</id>
  1859.         <text>Roberto 10</text>
  1860.     </content>
  1861.     <content>
  1862.         <layer>background</layer>
  1863.         <id>335</id>
  1864.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 10.R</text>
  1865.     </content>
  1866.     <content>
  1867.         <layer>background</layer>
  1868.         <id>311</id>
  1869.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 10.TIF</text>
  1870.     </content>
  1871.     <content>
  1872.         <layer>background</layer>
  1873.         <id>331</id>
  1874.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 10.PICT</text>
  1875.     </content>
  1876.     <name></name>
  1877.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1878. </card>
  1879.  
  1880.  
  1881. card_14716.xml
  1882. <?xml version="1.0" encoding="utf-8" ?>
  1883. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1884. <card>
  1885.     <id>14716</id>
  1886.     <filler1>0</filler1>
  1887.     <cantDelete> <false /> </cantDelete>
  1888.     <showPict> <true /> </showPict>
  1889.     <dontSearch> <false /> </dontSearch>
  1890.     <owner>2566</owner>
  1891.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1892.     <content>
  1893.         <layer>background</layer>
  1894.         <id>106</id>
  1895.         <text>Roberto 1</text>
  1896.     </content>
  1897.     <content>
  1898.         <layer>background</layer>
  1899.         <id>335</id>
  1900.         <text>Heavenly Hunks:8-bit PICT Reduced:Roberto:Roberto 1.R</text>
  1901.     </content>
  1902.     <content>
  1903.         <layer>background</layer>
  1904.         <id>311</id>
  1905.         <text>Heavenly Hunks:24-bit TIF:Roberto:Roberto 1.TIF</text>
  1906.     </content>
  1907.     <content>
  1908.         <layer>background</layer>
  1909.         <id>331</id>
  1910.         <text>Heavenly Hunks:8-bit PICT:Roberto:Roberto 1.PICT</text>
  1911.     </content>
  1912.     <name></name>
  1913.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1914. </card>
  1915.  
  1916.  
  1917. card_20343.xml
  1918. <?xml version="1.0" encoding="utf-8" ?>
  1919. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1920. <card>
  1921.     <id>20343</id>
  1922.     <filler1>0</filler1>
  1923.     <cantDelete> <false /> </cantDelete>
  1924.     <showPict> <true /> </showPict>
  1925.     <dontSearch> <false /> </dontSearch>
  1926.     <owner>2566</owner>
  1927.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1928.     <content>
  1929.         <layer>background</layer>
  1930.         <id>106</id>
  1931.         <text>Ricky 07</text>
  1932.     </content>
  1933.     <content>
  1934.         <layer>background</layer>
  1935.         <id>335</id>
  1936.         <text>Heavenly Hunks:8-bit PICT Reduced:Ricky:Ricky 07.R</text>
  1937.     </content>
  1938.     <content>
  1939.         <layer>background</layer>
  1940.         <id>311</id>
  1941.         <text>Heavenly Hunks:24-bit TIF:Ricky:Ricky 07.TIF</text>
  1942.     </content>
  1943.     <content>
  1944.         <layer>background</layer>
  1945.         <id>331</id>
  1946.         <text>Heavenly Hunks:8-bit PICT:Ricky:Ricky 07.PICT</text>
  1947.     </content>
  1948.     <name></name>
  1949.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1950. </card>
  1951.  
  1952.  
  1953. card_19991.xml
  1954. <?xml version="1.0" encoding="utf-8" ?>
  1955. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1956. <card>
  1957.     <id>19991</id>
  1958.     <filler1>0</filler1>
  1959.     <cantDelete> <false /> </cantDelete>
  1960.     <showPict> <true /> </showPict>
  1961.     <dontSearch> <false /> </dontSearch>
  1962.     <owner>2566</owner>
  1963.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  1964.     <content>
  1965.         <layer>background</layer>
  1966.         <id>106</id>
  1967.         <text>Ricky 06</text>
  1968.     </content>
  1969.     <content>
  1970.         <layer>background</layer>
  1971.         <id>335</id>
  1972.         <text>Heavenly Hunks:8-bit PICT Reduced:Ricky:Ricky 06.R</text>
  1973.     </content>
  1974.     <content>
  1975.         <layer>background</layer>
  1976.         <id>311</id>
  1977.         <text>Heavenly Hunks:24-bit TIF:Ricky:Ricky 06.TIF</text>
  1978.     </content>
  1979.     <content>
  1980.         <layer>background</layer>
  1981.         <id>331</id>
  1982.         <text>Heavenly Hunks:8-bit PICT:Ricky:Ricky 06.PICT</text>
  1983.     </content>
  1984.     <name></name>
  1985.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  1986. </card>
  1987.  
  1988.  
  1989. card_19947.xml
  1990. <?xml version="1.0" encoding="utf-8" ?>
  1991. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1992. <card>
  1993.     <id>19947</id>
  1994.     <filler1>0</filler1>
  1995.     <cantDelete> <false /> </cantDelete>
  1996.     <showPict> <true /> </showPict>
  1997.     <dontSearch> <false /> </dontSearch>
  1998.     <owner>2566</owner>
  1999.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2000.     <content>
  2001.         <layer>background</layer>
  2002.         <id>106</id>
  2003.         <text>Ricky 05</text>
  2004.     </content>
  2005.     <content>
  2006.         <layer>background</layer>
  2007.         <id>335</id>
  2008.         <text>Heavenly Hunks:8-bit PICT Reduced:Ricky:Ricky 05.R</text>
  2009.     </content>
  2010.     <content>
  2011.         <layer>background</layer>
  2012.         <id>311</id>
  2013.         <text>Heavenly Hunks:24-bit TIF:Ricky:Ricky 05.TIF</text>
  2014.     </content>
  2015.     <content>
  2016.         <layer>background</layer>
  2017.         <id>331</id>
  2018.         <text>Heavenly Hunks:8-bit PICT:Ricky:Ricky 05.PICT</text>
  2019.     </content>
  2020.     <name></name>
  2021.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2022. </card>
  2023.  
  2024.  
  2025. card_19601.xml
  2026. <?xml version="1.0" encoding="utf-8" ?>
  2027. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2028. <card>
  2029.     <id>19601</id>
  2030.     <filler1>0</filler1>
  2031.     <cantDelete> <false /> </cantDelete>
  2032.     <showPict> <true /> </showPict>
  2033.     <dontSearch> <false /> </dontSearch>
  2034.     <owner>2566</owner>
  2035.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2036.     <content>
  2037.         <layer>background</layer>
  2038.         <id>106</id>
  2039.         <text>Ricky 04</text>
  2040.     </content>
  2041.     <content>
  2042.         <layer>background</layer>
  2043.         <id>335</id>
  2044.         <text>Heavenly Hunks:8-bit PICT Reduced:Ricky:Ricky 04.R</text>
  2045.     </content>
  2046.     <content>
  2047.         <layer>background</layer>
  2048.         <id>311</id>
  2049.         <text>Heavenly Hunks:24-bit TIF:Ricky:Ricky 04.TIF</text>
  2050.     </content>
  2051.     <content>
  2052.         <layer>background</layer>
  2053.         <id>331</id>
  2054.         <text>Heavenly Hunks:8-bit PICT:Ricky:Ricky 04.PICT</text>
  2055.     </content>
  2056.     <name></name>
  2057.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2058. </card>
  2059.  
  2060.  
  2061. card_19309.xml
  2062. <?xml version="1.0" encoding="utf-8" ?>
  2063. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2064. <card>
  2065.     <id>19309</id>
  2066.     <filler1>0</filler1>
  2067.     <cantDelete> <false /> </cantDelete>
  2068.     <showPict> <true /> </showPict>
  2069.     <dontSearch> <false /> </dontSearch>
  2070.     <owner>2566</owner>
  2071.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2072.     <content>
  2073.         <layer>background</layer>
  2074.         <id>106</id>
  2075.         <text>Ricky 03</text>
  2076.     </content>
  2077.     <content>
  2078.         <layer>background</layer>
  2079.         <id>335</id>
  2080.         <text>Heavenly Hunks:8-bit PICT Reduced:Ricky:Ricky 03.R</text>
  2081.     </content>
  2082.     <content>
  2083.         <layer>background</layer>
  2084.         <id>311</id>
  2085.         <text>Heavenly Hunks:24-bit TIF:Ricky:Ricky 03.TIF</text>
  2086.     </content>
  2087.     <content>
  2088.         <layer>background</layer>
  2089.         <id>331</id>
  2090.         <text>Heavenly Hunks:8-bit PICT:Ricky:Ricky 03.PICT</text>
  2091.     </content>
  2092.     <name></name>
  2093.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2094. </card>
  2095.  
  2096.  
  2097. card_19088.xml
  2098. <?xml version="1.0" encoding="utf-8" ?>
  2099. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2100. <card>
  2101.     <id>19088</id>
  2102.     <filler1>0</filler1>
  2103.     <cantDelete> <false /> </cantDelete>
  2104.     <showPict> <true /> </showPict>
  2105.     <dontSearch> <false /> </dontSearch>
  2106.     <owner>2566</owner>
  2107.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2108.     <content>
  2109.         <layer>background</layer>
  2110.         <id>106</id>
  2111.         <text>Ricky 02</text>
  2112.     </content>
  2113.     <content>
  2114.         <layer>background</layer>
  2115.         <id>335</id>
  2116.         <text>Heavenly Hunks:8-bit PICT Reduced:Ricky:Ricky 02.R</text>
  2117.     </content>
  2118.     <content>
  2119.         <layer>background</layer>
  2120.         <id>311</id>
  2121.         <text>Heavenly Hunks:24-bit TIF:Ricky:Ricky 02.TIF</text>
  2122.     </content>
  2123.     <content>
  2124.         <layer>background</layer>
  2125.         <id>331</id>
  2126.         <text>Heavenly Hunks:8-bit PICT:Ricky:Ricky 02.PICT</text>
  2127.     </content>
  2128.     <name></name>
  2129.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2130. </card>
  2131.  
  2132.  
  2133. card_18830.xml
  2134. <?xml version="1.0" encoding="utf-8" ?>
  2135. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2136. <card>
  2137.     <id>18830</id>
  2138.     <filler1>0</filler1>
  2139.     <cantDelete> <false /> </cantDelete>
  2140.     <showPict> <true /> </showPict>
  2141.     <dontSearch> <false /> </dontSearch>
  2142.     <owner>2566</owner>
  2143.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2144.     <content>
  2145.         <layer>background</layer>
  2146.         <id>106</id>
  2147.         <text>Ricky 01</text>
  2148.     </content>
  2149.     <content>
  2150.         <layer>background</layer>
  2151.         <id>335</id>
  2152.         <text>Heavenly Hunks:8-bit PICT Reduced:Ricky:Ricky 01.R</text>
  2153.     </content>
  2154.     <content>
  2155.         <layer>background</layer>
  2156.         <id>311</id>
  2157.         <text>Heavenly Hunks:24-bit TIF:Ricky:Ricky 01.TIF</text>
  2158.     </content>
  2159.     <content>
  2160.         <layer>background</layer>
  2161.         <id>331</id>
  2162.         <text>Heavenly Hunks:8-bit PICT:Ricky:Ricky 01.PICT</text>
  2163.     </content>
  2164.     <name></name>
  2165.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2166. </card>
  2167.  
  2168.  
  2169. card_23430.xml
  2170. <?xml version="1.0" encoding="utf-8" ?>
  2171. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2172. <card>
  2173.     <id>23430</id>
  2174.     <filler1>0</filler1>
  2175.     <cantDelete> <false /> </cantDelete>
  2176.     <showPict> <true /> </showPict>
  2177.     <dontSearch> <false /> </dontSearch>
  2178.     <owner>2566</owner>
  2179.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2180.     <content>
  2181.         <layer>background</layer>
  2182.         <id>106</id>
  2183.         <text>Rick 11</text>
  2184.     </content>
  2185.     <content>
  2186.         <layer>background</layer>
  2187.         <id>335</id>
  2188.         <text>Heavenly Hunks:8-bit PICT Reduced:Rick:Rick 11.R</text>
  2189.     </content>
  2190.     <content>
  2191.         <layer>background</layer>
  2192.         <id>311</id>
  2193.         <text>Heavenly Hunks:24-bit TIF:Rick:Rick 11.TIF</text>
  2194.     </content>
  2195.     <content>
  2196.         <layer>background</layer>
  2197.         <id>331</id>
  2198.         <text>Heavenly Hunks:8-bit PICT:Rick:Rick 11.PICT</text>
  2199.     </content>
  2200.     <name></name>
  2201.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2202. </card>
  2203.  
  2204.  
  2205. card_23218.xml
  2206. <?xml version="1.0" encoding="utf-8" ?>
  2207. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2208. <card>
  2209.     <id>23218</id>
  2210.     <filler1>0</filler1>
  2211.     <cantDelete> <false /> </cantDelete>
  2212.     <showPict> <true /> </showPict>
  2213.     <dontSearch> <false /> </dontSearch>
  2214.     <owner>2566</owner>
  2215.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2216.     <content>
  2217.         <layer>background</layer>
  2218.         <id>106</id>
  2219.         <text>Rick 10</text>
  2220.     </content>
  2221.     <content>
  2222.         <layer>background</layer>
  2223.         <id>335</id>
  2224.         <text>Heavenly Hunks:8-bit PICT Reduced:Rick:Rick 10.R</text>
  2225.     </content>
  2226.     <content>
  2227.         <layer>background</layer>
  2228.         <id>311</id>
  2229.         <text>Heavenly Hunks:24-bit TIF:Rick:Rick 10.TIF</text>
  2230.     </content>
  2231.     <content>
  2232.         <layer>background</layer>
  2233.         <id>331</id>
  2234.         <text>Heavenly Hunks:8-bit PICT:Rick:Rick 10.PICT</text>
  2235.     </content>
  2236.     <name></name>
  2237.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2238. </card>
  2239.  
  2240.  
  2241. card_22928.xml
  2242. <?xml version="1.0" encoding="utf-8" ?>
  2243. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2244. <card>
  2245.     <id>22928</id>
  2246.     <filler1>0</filler1>
  2247.     <cantDelete> <false /> </cantDelete>
  2248.     <showPict> <true /> </showPict>
  2249.     <dontSearch> <false /> </dontSearch>
  2250.     <owner>2566</owner>
  2251.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2252.     <content>
  2253.         <layer>background</layer>
  2254.         <id>106</id>
  2255.         <text>Rick 09</text>
  2256.     </content>
  2257.     <content>
  2258.         <layer>background</layer>
  2259.         <id>335</id>
  2260.         <text>Heavenly Hunks:8-bit PICT Reduced:Rick:Rick 09.R</text>
  2261.     </content>
  2262.     <content>
  2263.         <layer>background</layer>
  2264.         <id>311</id>
  2265.         <text>Heavenly Hunks:24-bit TIF:Rick:Rick 09.TIF</text>
  2266.     </content>
  2267.     <content>
  2268.         <layer>background</layer>
  2269.         <id>331</id>
  2270.         <text>Heavenly Hunks:8-bit PICT:Rick:Rick 09.PICT</text>
  2271.     </content>
  2272.     <name></name>
  2273.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2274. </card>
  2275.  
  2276.  
  2277. card_22652.xml
  2278. <?xml version="1.0" encoding="utf-8" ?>
  2279. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2280. <card>
  2281.     <id>22652</id>
  2282.     <filler1>0</filler1>
  2283.     <cantDelete> <false /> </cantDelete>
  2284.     <showPict> <true /> </showPict>
  2285.     <dontSearch> <false /> </dontSearch>
  2286.     <owner>2566</owner>
  2287.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2288.     <content>
  2289.         <layer>background</layer>
  2290.         <id>106</id>
  2291.         <text>Rick 08</text>
  2292.     </content>
  2293.     <content>
  2294.         <layer>background</layer>
  2295.         <id>335</id>
  2296.         <text>Heavenly Hunks:8-bit PICT Reduced:Rick:Rick 08.R</text>
  2297.     </content>
  2298.     <content>
  2299.         <layer>background</layer>
  2300.         <id>311</id>
  2301.         <text>Heavenly Hunks:24-bit TIF:Rick:Rick 08.TIF</text>
  2302.     </content>
  2303.     <content>
  2304.         <layer>background</layer>
  2305.         <id>331</id>
  2306.         <text>Heavenly Hunks:8-bit PICT:Rick:Rick 08.PICT</text>
  2307.     </content>
  2308.     <name></name>
  2309.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2310. </card>
  2311.  
  2312.  
  2313. card_22471.xml
  2314. <?xml version="1.0" encoding="utf-8" ?>
  2315. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2316. <card>
  2317.     <id>22471</id>
  2318.     <filler1>0</filler1>
  2319.     <cantDelete> <false /> </cantDelete>
  2320.     <showPict> <true /> </showPict>
  2321.     <dontSearch> <false /> </dontSearch>
  2322.     <owner>2566</owner>
  2323.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2324.     <content>
  2325.         <layer>background</layer>
  2326.         <id>106</id>
  2327.         <text>Rick 07</text>
  2328.     </content>
  2329.     <content>
  2330.         <layer>background</layer>
  2331.         <id>335</id>
  2332.         <text>Heavenly Hunks:8-bit PICT Reduced:Rick:Rick 07.R</text>
  2333.     </content>
  2334.     <content>
  2335.         <layer>background</layer>
  2336.         <id>311</id>
  2337.         <text>Heavenly Hunks:24-bit TIF:Rick:Rick 07.TIF</text>
  2338.     </content>
  2339.     <content>
  2340.         <layer>background</layer>
  2341.         <id>331</id>
  2342.         <text>Heavenly Hunks:8-bit PICT:Rick:Rick 07.PICT</text>
  2343.     </content>
  2344.     <name></name>
  2345.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2346. </card>
  2347.  
  2348.  
  2349. card_22215.xml
  2350. <?xml version="1.0" encoding="utf-8" ?>
  2351. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2352. <card>
  2353.     <id>22215</id>
  2354.     <filler1>0</filler1>
  2355.     <cantDelete> <false /> </cantDelete>
  2356.     <showPict> <true /> </showPict>
  2357.     <dontSearch> <false /> </dontSearch>
  2358.     <owner>2566</owner>
  2359.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2360.     <content>
  2361.         <layer>background</layer>
  2362.         <id>106</id>
  2363.         <text>Rick 06</text>
  2364.     </content>
  2365.     <content>
  2366.         <layer>background</layer>
  2367.         <id>335</id>
  2368.         <text>Heavenly Hunks:8-bit PICT Reduced:Rick:Rick 06.R</text>
  2369.     </content>
  2370.     <content>
  2371.         <layer>background</layer>
  2372.         <id>311</id>
  2373.         <text>Heavenly Hunks:24-bit TIF:Rick:Rick 06.TIF</text>
  2374.     </content>
  2375.     <content>
  2376.         <layer>background</layer>
  2377.         <id>331</id>
  2378.         <text>Heavenly Hunks:8-bit PICT:Rick:Rick 06.PICT</text>
  2379.     </content>
  2380.     <name></name>
  2381.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2382. </card>
  2383.  
  2384.  
  2385. card_21858.xml
  2386. <?xml version="1.0" encoding="utf-8" ?>
  2387. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2388. <card>
  2389.     <id>21858</id>
  2390.     <filler1>0</filler1>
  2391.     <cantDelete> <false /> </cantDelete>
  2392.     <showPict> <true /> </showPict>
  2393.     <dontSearch> <false /> </dontSearch>
  2394.     <owner>2566</owner>
  2395.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2396.     <content>
  2397.         <layer>background</layer>
  2398.         <id>106</id>
  2399.         <text>Rick 05</text>
  2400.     </content>
  2401.     <content>
  2402.         <layer>background</layer>
  2403.         <id>335</id>
  2404.         <text>Heavenly Hunks:8-bit PICT Reduced:Rick:Rick 05.R</text>
  2405.     </content>
  2406.     <content>
  2407.         <layer>background</layer>
  2408.         <id>311</id>
  2409.         <text>Heavenly Hunks:24-bit TIF:Rick:Rick 05.TIF</text>
  2410.     </content>
  2411.     <content>
  2412.         <layer>background</layer>
  2413.         <id>331</id>
  2414.         <text>Heavenly Hunks:8-bit PICT:Rick:Rick 05.PICT</text>
  2415.     </content>
  2416.     <name></name>
  2417.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2418. </card>
  2419.  
  2420.  
  2421. card_21716.xml
  2422. <?xml version="1.0" encoding="utf-8" ?>
  2423. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2424. <card>
  2425.     <id>21716</id>
  2426.     <filler1>0</filler1>
  2427.     <cantDelete> <false /> </cantDelete>
  2428.     <showPict> <true /> </showPict>
  2429.     <dontSearch> <false /> </dontSearch>
  2430.     <owner>2566</owner>
  2431.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2432.     <content>
  2433.         <layer>background</layer>
  2434.         <id>106</id>
  2435.         <text>Rick 04</text>
  2436.     </content>
  2437.     <content>
  2438.         <layer>background</layer>
  2439.         <id>335</id>
  2440.         <text>Heavenly Hunks:8-bit PICT Reduced:Rick:Rick 04.R</text>
  2441.     </content>
  2442.     <content>
  2443.         <layer>background</layer>
  2444.         <id>311</id>
  2445.         <text>Heavenly Hunks:24-bit TIF:Rick:Rick 04.TIF</text>
  2446.     </content>
  2447.     <content>
  2448.         <layer>background</layer>
  2449.         <id>331</id>
  2450.         <text>Heavenly Hunks:8-bit PICT:Rick:Rick 04.PICT</text>
  2451.     </content>
  2452.     <name></name>
  2453.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2454. </card>
  2455.  
  2456.  
  2457. card_21106.xml
  2458. <?xml version="1.0" encoding="utf-8" ?>
  2459. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2460. <card>
  2461.     <id>21106</id>
  2462.     <filler1>0</filler1>
  2463.     <cantDelete> <false /> </cantDelete>
  2464.     <showPict> <true /> </showPict>
  2465.     <dontSearch> <false /> </dontSearch>
  2466.     <owner>2566</owner>
  2467.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2468.     <content>
  2469.         <layer>background</layer>
  2470.         <id>106</id>
  2471.         <text>Rick 03</text>
  2472.     </content>
  2473.     <content>
  2474.         <layer>background</layer>
  2475.         <id>335</id>
  2476.         <text>Heavenly Hunks:8-bit PICT Reduced:Rick:Rick 03.R</text>
  2477.     </content>
  2478.     <content>
  2479.         <layer>background</layer>
  2480.         <id>311</id>
  2481.         <text>Heavenly Hunks:24-bit TIF:Rick:Rick 03.TIF</text>
  2482.     </content>
  2483.     <content>
  2484.         <layer>background</layer>
  2485.         <id>331</id>
  2486.         <text>Heavenly Hunks:8-bit PICT:Rick:Rick 03.PICT</text>
  2487.     </content>
  2488.     <name></name>
  2489.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2490. </card>
  2491.  
  2492.  
  2493. card_20786.xml
  2494. <?xml version="1.0" encoding="utf-8" ?>
  2495. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2496. <card>
  2497.     <id>20786</id>
  2498.     <filler1>0</filler1>
  2499.     <cantDelete> <false /> </cantDelete>
  2500.     <showPict> <true /> </showPict>
  2501.     <dontSearch> <false /> </dontSearch>
  2502.     <owner>2566</owner>
  2503.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2504.     <content>
  2505.         <layer>background</layer>
  2506.         <id>106</id>
  2507.         <text>Rick 02</text>
  2508.     </content>
  2509.     <content>
  2510.         <layer>background</layer>
  2511.         <id>335</id>
  2512.         <text>Heavenly Hunks:8-bit PICT Reduced:Rick:Rick 02.R</text>
  2513.     </content>
  2514.     <content>
  2515.         <layer>background</layer>
  2516.         <id>311</id>
  2517.         <text>Heavenly Hunks:24-bit TIF:Rick:Rick 02.TIF</text>
  2518.     </content>
  2519.     <content>
  2520.         <layer>background</layer>
  2521.         <id>331</id>
  2522.         <text>Heavenly Hunks:8-bit PICT:Rick:Rick 02.PICT</text>
  2523.     </content>
  2524.     <name></name>
  2525.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2526. </card>
  2527.  
  2528.  
  2529. card_20594.xml
  2530. <?xml version="1.0" encoding="utf-8" ?>
  2531. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2532. <card>
  2533.     <id>20594</id>
  2534.     <filler1>0</filler1>
  2535.     <cantDelete> <false /> </cantDelete>
  2536.     <showPict> <true /> </showPict>
  2537.     <dontSearch> <false /> </dontSearch>
  2538.     <owner>2566</owner>
  2539.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2540.     <content>
  2541.         <layer>background</layer>
  2542.         <id>106</id>
  2543.         <text>Rick 01</text>
  2544.     </content>
  2545.     <content>
  2546.         <layer>background</layer>
  2547.         <id>335</id>
  2548.         <text>Heavenly Hunks:8-bit PICT Reduced:Rick:Rick 01.R</text>
  2549.     </content>
  2550.     <content>
  2551.         <layer>background</layer>
  2552.         <id>311</id>
  2553.         <text>Heavenly Hunks:24-bit TIF:Rick:Rick 01.TIF</text>
  2554.     </content>
  2555.     <content>
  2556.         <layer>background</layer>
  2557.         <id>331</id>
  2558.         <text>Heavenly Hunks:8-bit PICT:Rick:Rick 01.PICT</text>
  2559.     </content>
  2560.     <name></name>
  2561.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2562. </card>
  2563.  
  2564.  
  2565. card_26587.xml
  2566. <?xml version="1.0" encoding="utf-8" ?>
  2567. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2568. <card>
  2569.     <id>26587</id>
  2570.     <filler1>0</filler1>
  2571.     <cantDelete> <false /> </cantDelete>
  2572.     <showPict> <true /> </showPict>
  2573.     <dontSearch> <false /> </dontSearch>
  2574.     <owner>2566</owner>
  2575.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2576.     <content>
  2577.         <layer>background</layer>
  2578.         <id>106</id>
  2579.         <text>Randy 12</text>
  2580.     </content>
  2581.     <content>
  2582.         <layer>background</layer>
  2583.         <id>335</id>
  2584.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 12.R</text>
  2585.     </content>
  2586.     <content>
  2587.         <layer>background</layer>
  2588.         <id>311</id>
  2589.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 12.TIF</text>
  2590.     </content>
  2591.     <content>
  2592.         <layer>background</layer>
  2593.         <id>331</id>
  2594.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 12.PICT</text>
  2595.     </content>
  2596.     <name></name>
  2597.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2598. </card>
  2599.  
  2600.  
  2601. card_26185.xml
  2602. <?xml version="1.0" encoding="utf-8" ?>
  2603. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2604. <card>
  2605.     <id>26185</id>
  2606.     <filler1>0</filler1>
  2607.     <cantDelete> <false /> </cantDelete>
  2608.     <showPict> <true /> </showPict>
  2609.     <dontSearch> <false /> </dontSearch>
  2610.     <owner>2566</owner>
  2611.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2612.     <content>
  2613.         <layer>background</layer>
  2614.         <id>106</id>
  2615.         <text>Randy 11</text>
  2616.     </content>
  2617.     <content>
  2618.         <layer>background</layer>
  2619.         <id>335</id>
  2620.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 11.R</text>
  2621.     </content>
  2622.     <content>
  2623.         <layer>background</layer>
  2624.         <id>311</id>
  2625.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 11.TIF</text>
  2626.     </content>
  2627.     <content>
  2628.         <layer>background</layer>
  2629.         <id>331</id>
  2630.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 11.PICT</text>
  2631.     </content>
  2632.     <name></name>
  2633.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2634. </card>
  2635.  
  2636.  
  2637. card_25981.xml
  2638. <?xml version="1.0" encoding="utf-8" ?>
  2639. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2640. <card>
  2641.     <id>25981</id>
  2642.     <filler1>0</filler1>
  2643.     <cantDelete> <false /> </cantDelete>
  2644.     <showPict> <true /> </showPict>
  2645.     <dontSearch> <false /> </dontSearch>
  2646.     <owner>2566</owner>
  2647.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2648.     <content>
  2649.         <layer>background</layer>
  2650.         <id>106</id>
  2651.         <text>Randy 10</text>
  2652.     </content>
  2653.     <content>
  2654.         <layer>background</layer>
  2655.         <id>335</id>
  2656.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 10.R</text>
  2657.     </content>
  2658.     <content>
  2659.         <layer>background</layer>
  2660.         <id>311</id>
  2661.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 10.TIF</text>
  2662.     </content>
  2663.     <content>
  2664.         <layer>background</layer>
  2665.         <id>331</id>
  2666.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 10.PICT</text>
  2667.     </content>
  2668.     <name></name>
  2669.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2670. </card>
  2671.  
  2672.  
  2673. card_25651.xml
  2674. <?xml version="1.0" encoding="utf-8" ?>
  2675. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2676. <card>
  2677.     <id>25651</id>
  2678.     <filler1>0</filler1>
  2679.     <cantDelete> <false /> </cantDelete>
  2680.     <showPict> <true /> </showPict>
  2681.     <dontSearch> <false /> </dontSearch>
  2682.     <owner>2566</owner>
  2683.     <marked><true /></marked>
  2684.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2685.     <content>
  2686.         <layer>background</layer>
  2687.         <id>106</id>
  2688.         <text>Randy 09</text>
  2689.     </content>
  2690.     <content>
  2691.         <layer>background</layer>
  2692.         <id>335</id>
  2693.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 09.R</text>
  2694.     </content>
  2695.     <content>
  2696.         <layer>background</layer>
  2697.         <id>311</id>
  2698.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 09.TIF</text>
  2699.     </content>
  2700.     <content>
  2701.         <layer>background</layer>
  2702.         <id>331</id>
  2703.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 09.PICT</text>
  2704.     </content>
  2705.     <name></name>
  2706.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2707. </card>
  2708.  
  2709.  
  2710. card_25456.xml
  2711. <?xml version="1.0" encoding="utf-8" ?>
  2712. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2713. <card>
  2714.     <id>25456</id>
  2715.     <filler1>0</filler1>
  2716.     <cantDelete> <false /> </cantDelete>
  2717.     <showPict> <true /> </showPict>
  2718.     <dontSearch> <false /> </dontSearch>
  2719.     <owner>2566</owner>
  2720.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2721.     <content>
  2722.         <layer>background</layer>
  2723.         <id>106</id>
  2724.         <text>Randy 08</text>
  2725.     </content>
  2726.     <content>
  2727.         <layer>background</layer>
  2728.         <id>335</id>
  2729.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 08.R</text>
  2730.     </content>
  2731.     <content>
  2732.         <layer>background</layer>
  2733.         <id>311</id>
  2734.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 08.TIF</text>
  2735.     </content>
  2736.     <content>
  2737.         <layer>background</layer>
  2738.         <id>331</id>
  2739.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 08.PICT</text>
  2740.     </content>
  2741.     <name></name>
  2742.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2743. </card>
  2744.  
  2745.  
  2746. card_25304.xml
  2747. <?xml version="1.0" encoding="utf-8" ?>
  2748. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2749. <card>
  2750.     <id>25304</id>
  2751.     <filler1>0</filler1>
  2752.     <cantDelete> <false /> </cantDelete>
  2753.     <showPict> <true /> </showPict>
  2754.     <dontSearch> <false /> </dontSearch>
  2755.     <owner>2566</owner>
  2756.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2757.     <content>
  2758.         <layer>background</layer>
  2759.         <id>106</id>
  2760.         <text>Randy 07</text>
  2761.     </content>
  2762.     <content>
  2763.         <layer>background</layer>
  2764.         <id>335</id>
  2765.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 07.R</text>
  2766.     </content>
  2767.     <content>
  2768.         <layer>background</layer>
  2769.         <id>311</id>
  2770.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 07.TIF</text>
  2771.     </content>
  2772.     <content>
  2773.         <layer>background</layer>
  2774.         <id>331</id>
  2775.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 07.PICT</text>
  2776.     </content>
  2777.     <name></name>
  2778.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2779. </card>
  2780.  
  2781.  
  2782. card_25009.xml
  2783. <?xml version="1.0" encoding="utf-8" ?>
  2784. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2785. <card>
  2786.     <id>25009</id>
  2787.     <filler1>0</filler1>
  2788.     <cantDelete> <false /> </cantDelete>
  2789.     <showPict> <true /> </showPict>
  2790.     <dontSearch> <false /> </dontSearch>
  2791.     <owner>2566</owner>
  2792.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2793.     <content>
  2794.         <layer>background</layer>
  2795.         <id>106</id>
  2796.         <text>Randy 06</text>
  2797.     </content>
  2798.     <content>
  2799.         <layer>background</layer>
  2800.         <id>335</id>
  2801.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 06.R</text>
  2802.     </content>
  2803.     <content>
  2804.         <layer>background</layer>
  2805.         <id>311</id>
  2806.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 06.TIF</text>
  2807.     </content>
  2808.     <content>
  2809.         <layer>background</layer>
  2810.         <id>331</id>
  2811.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 06.PICT</text>
  2812.     </content>
  2813.     <name></name>
  2814.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2815. </card>
  2816.  
  2817.  
  2818. card_24640.xml
  2819. <?xml version="1.0" encoding="utf-8" ?>
  2820. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2821. <card>
  2822.     <id>24640</id>
  2823.     <filler1>0</filler1>
  2824.     <cantDelete> <false /> </cantDelete>
  2825.     <showPict> <true /> </showPict>
  2826.     <dontSearch> <false /> </dontSearch>
  2827.     <owner>2566</owner>
  2828.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2829.     <content>
  2830.         <layer>background</layer>
  2831.         <id>106</id>
  2832.         <text>Randy 05</text>
  2833.     </content>
  2834.     <content>
  2835.         <layer>background</layer>
  2836.         <id>335</id>
  2837.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 05.R</text>
  2838.     </content>
  2839.     <content>
  2840.         <layer>background</layer>
  2841.         <id>311</id>
  2842.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 05.TIF</text>
  2843.     </content>
  2844.     <content>
  2845.         <layer>background</layer>
  2846.         <id>331</id>
  2847.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 05.PICT</text>
  2848.     </content>
  2849.     <name></name>
  2850.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "205,75" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2851. </card>
  2852.  
  2853.  
  2854. card_24548.xml
  2855. <?xml version="1.0" encoding="utf-8" ?>
  2856. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2857. <card>
  2858.     <id>24548</id>
  2859.     <filler1>0</filler1>
  2860.     <cantDelete> <false /> </cantDelete>
  2861.     <showPict> <true /> </showPict>
  2862.     <dontSearch> <false /> </dontSearch>
  2863.     <owner>2566</owner>
  2864.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2865.     <content>
  2866.         <layer>background</layer>
  2867.         <id>106</id>
  2868.         <text>Randy 04</text>
  2869.     </content>
  2870.     <content>
  2871.         <layer>background</layer>
  2872.         <id>335</id>
  2873.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 04.R</text>
  2874.     </content>
  2875.     <content>
  2876.         <layer>background</layer>
  2877.         <id>311</id>
  2878.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 04.TIF</text>
  2879.     </content>
  2880.     <content>
  2881.         <layer>background</layer>
  2882.         <id>331</id>
  2883.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 04.PICT</text>
  2884.     </content>
  2885.     <name></name>
  2886.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2887. </card>
  2888.  
  2889.  
  2890. card_24294.xml
  2891. <?xml version="1.0" encoding="utf-8" ?>
  2892. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2893. <card>
  2894.     <id>24294</id>
  2895.     <filler1>0</filler1>
  2896.     <cantDelete> <false /> </cantDelete>
  2897.     <showPict> <true /> </showPict>
  2898.     <dontSearch> <false /> </dontSearch>
  2899.     <owner>2566</owner>
  2900.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2901.     <content>
  2902.         <layer>background</layer>
  2903.         <id>106</id>
  2904.         <text>Randy 03</text>
  2905.     </content>
  2906.     <content>
  2907.         <layer>background</layer>
  2908.         <id>335</id>
  2909.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 03.R</text>
  2910.     </content>
  2911.     <content>
  2912.         <layer>background</layer>
  2913.         <id>311</id>
  2914.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 03.TIF</text>
  2915.     </content>
  2916.     <content>
  2917.         <layer>background</layer>
  2918.         <id>331</id>
  2919.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 03.PICT</text>
  2920.     </content>
  2921.     <name></name>
  2922.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2923. </card>
  2924.  
  2925.  
  2926. card_23834.xml
  2927. <?xml version="1.0" encoding="utf-8" ?>
  2928. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2929. <card>
  2930.     <id>23834</id>
  2931.     <filler1>0</filler1>
  2932.     <cantDelete> <false /> </cantDelete>
  2933.     <showPict> <true /> </showPict>
  2934.     <dontSearch> <false /> </dontSearch>
  2935.     <owner>2566</owner>
  2936.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2937.     <content>
  2938.         <layer>background</layer>
  2939.         <id>106</id>
  2940.         <text>Randy 02</text>
  2941.     </content>
  2942.     <content>
  2943.         <layer>background</layer>
  2944.         <id>335</id>
  2945.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 02.R</text>
  2946.     </content>
  2947.     <content>
  2948.         <layer>background</layer>
  2949.         <id>311</id>
  2950.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 02.TIF</text>
  2951.     </content>
  2952.     <content>
  2953.         <layer>background</layer>
  2954.         <id>331</id>
  2955.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 02.PICT</text>
  2956.     </content>
  2957.     <name></name>
  2958.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2959. </card>
  2960.  
  2961.  
  2962. card_23696.xml
  2963. <?xml version="1.0" encoding="utf-8" ?>
  2964. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2965. <card>
  2966.     <id>23696</id>
  2967.     <filler1>0</filler1>
  2968.     <cantDelete> <false /> </cantDelete>
  2969.     <showPict> <true /> </showPict>
  2970.     <dontSearch> <false /> </dontSearch>
  2971.     <owner>2566</owner>
  2972.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  2973.     <content>
  2974.         <layer>background</layer>
  2975.         <id>106</id>
  2976.         <text>Randy 01</text>
  2977.     </content>
  2978.     <content>
  2979.         <layer>background</layer>
  2980.         <id>335</id>
  2981.         <text>Heavenly Hunks:8-bit PICT Reduced:Randy:Randy 01.R</text>
  2982.     </content>
  2983.     <content>
  2984.         <layer>background</layer>
  2985.         <id>311</id>
  2986.         <text>Heavenly Hunks:24-bit TIF:Randy:Randy 01.TIF</text>
  2987.     </content>
  2988.     <content>
  2989.         <layer>background</layer>
  2990.         <id>331</id>
  2991.         <text>Heavenly Hunks:8-bit PICT:Randy:Randy 01.PICT</text>
  2992.     </content>
  2993.     <name></name>
  2994.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  2995. </card>
  2996.  
  2997.  
  2998. card_28190.xml
  2999. <?xml version="1.0" encoding="utf-8" ?>
  3000. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3001. <card>
  3002.     <id>28190</id>
  3003.     <filler1>0</filler1>
  3004.     <cantDelete> <false /> </cantDelete>
  3005.     <showPict> <true /> </showPict>
  3006.     <dontSearch> <false /> </dontSearch>
  3007.     <owner>2566</owner>
  3008.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3009.     <content>
  3010.         <layer>background</layer>
  3011.         <id>106</id>
  3012.         <text>Mike G 07</text>
  3013.     </content>
  3014.     <content>
  3015.         <layer>background</layer>
  3016.         <id>335</id>
  3017.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike G:Mike G 07.R</text>
  3018.     </content>
  3019.     <content>
  3020.         <layer>background</layer>
  3021.         <id>311</id>
  3022.         <text>Heavenly Hunks:24-bit TIF:Mike G:Mike G 07.TIF</text>
  3023.     </content>
  3024.     <content>
  3025.         <layer>background</layer>
  3026.         <id>331</id>
  3027.         <text>Heavenly Hunks:8-bit PICT:Mike G:Mike G 07.PICT</text>
  3028.     </content>
  3029.     <name></name>
  3030.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3031. </card>
  3032.  
  3033.  
  3034. card_28075.xml
  3035. <?xml version="1.0" encoding="utf-8" ?>
  3036. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3037. <card>
  3038.     <id>28075</id>
  3039.     <filler1>0</filler1>
  3040.     <cantDelete> <false /> </cantDelete>
  3041.     <showPict> <true /> </showPict>
  3042.     <dontSearch> <false /> </dontSearch>
  3043.     <owner>2566</owner>
  3044.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3045.     <content>
  3046.         <layer>background</layer>
  3047.         <id>106</id>
  3048.         <text>Mike G 06</text>
  3049.     </content>
  3050.     <content>
  3051.         <layer>background</layer>
  3052.         <id>335</id>
  3053.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike G:Mike G 06.R</text>
  3054.     </content>
  3055.     <content>
  3056.         <layer>background</layer>
  3057.         <id>311</id>
  3058.         <text>Heavenly Hunks:24-bit TIF:Mike G:Mike G 06.TIF</text>
  3059.     </content>
  3060.     <content>
  3061.         <layer>background</layer>
  3062.         <id>331</id>
  3063.         <text>Heavenly Hunks:8-bit PICT:Mike G:Mike G 06.PICT</text>
  3064.     </content>
  3065.     <name></name>
  3066.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3067. </card>
  3068.  
  3069.  
  3070. card_27870.xml
  3071. <?xml version="1.0" encoding="utf-8" ?>
  3072. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3073. <card>
  3074.     <id>27870</id>
  3075.     <filler1>0</filler1>
  3076.     <cantDelete> <false /> </cantDelete>
  3077.     <showPict> <true /> </showPict>
  3078.     <dontSearch> <false /> </dontSearch>
  3079.     <owner>2566</owner>
  3080.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3081.     <content>
  3082.         <layer>background</layer>
  3083.         <id>106</id>
  3084.         <text>Mike G 05</text>
  3085.     </content>
  3086.     <content>
  3087.         <layer>background</layer>
  3088.         <id>335</id>
  3089.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike G:Mike G 05.R</text>
  3090.     </content>
  3091.     <content>
  3092.         <layer>background</layer>
  3093.         <id>311</id>
  3094.         <text>Heavenly Hunks:24-bit TIF:Mike G:Mike G 05.TIF</text>
  3095.     </content>
  3096.     <content>
  3097.         <layer>background</layer>
  3098.         <id>331</id>
  3099.         <text>Heavenly Hunks:8-bit PICT:Mike G:Mike G 05.PICT</text>
  3100.     </content>
  3101.     <name></name>
  3102.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3103. </card>
  3104.  
  3105.  
  3106. card_27647.xml
  3107. <?xml version="1.0" encoding="utf-8" ?>
  3108. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3109. <card>
  3110.     <id>27647</id>
  3111.     <filler1>0</filler1>
  3112.     <cantDelete> <false /> </cantDelete>
  3113.     <showPict> <true /> </showPict>
  3114.     <dontSearch> <false /> </dontSearch>
  3115.     <owner>2566</owner>
  3116.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3117.     <content>
  3118.         <layer>background</layer>
  3119.         <id>106</id>
  3120.         <text>Mike G 04</text>
  3121.     </content>
  3122.     <content>
  3123.         <layer>background</layer>
  3124.         <id>335</id>
  3125.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike G:Mike G 04.R</text>
  3126.     </content>
  3127.     <content>
  3128.         <layer>background</layer>
  3129.         <id>311</id>
  3130.         <text>Heavenly Hunks:24-bit TIF:Mike G:Mike G 04.TIF</text>
  3131.     </content>
  3132.     <content>
  3133.         <layer>background</layer>
  3134.         <id>331</id>
  3135.         <text>Heavenly Hunks:8-bit PICT:Mike G:Mike G 04.PICT</text>
  3136.     </content>
  3137.     <name></name>
  3138.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3139. </card>
  3140.  
  3141.  
  3142. card_27313.xml
  3143. <?xml version="1.0" encoding="utf-8" ?>
  3144. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3145. <card>
  3146.     <id>27313</id>
  3147.     <filler1>0</filler1>
  3148.     <cantDelete> <false /> </cantDelete>
  3149.     <showPict> <true /> </showPict>
  3150.     <dontSearch> <false /> </dontSearch>
  3151.     <owner>2566</owner>
  3152.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3153.     <content>
  3154.         <layer>background</layer>
  3155.         <id>106</id>
  3156.         <text>Mike G 03</text>
  3157.     </content>
  3158.     <content>
  3159.         <layer>background</layer>
  3160.         <id>335</id>
  3161.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike G:Mike G 03.R</text>
  3162.     </content>
  3163.     <content>
  3164.         <layer>background</layer>
  3165.         <id>311</id>
  3166.         <text>Heavenly Hunks:24-bit TIF:Mike G:Mike G 03.TIF</text>
  3167.     </content>
  3168.     <content>
  3169.         <layer>background</layer>
  3170.         <id>331</id>
  3171.         <text>Heavenly Hunks:8-bit PICT:Mike G:Mike G 03.PICT</text>
  3172.     </content>
  3173.     <name></name>
  3174.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3175. </card>
  3176.  
  3177.  
  3178. card_26931.xml
  3179. <?xml version="1.0" encoding="utf-8" ?>
  3180. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3181. <card>
  3182.     <id>26931</id>
  3183.     <filler1>0</filler1>
  3184.     <cantDelete> <false /> </cantDelete>
  3185.     <showPict> <true /> </showPict>
  3186.     <dontSearch> <false /> </dontSearch>
  3187.     <owner>2566</owner>
  3188.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3189.     <content>
  3190.         <layer>background</layer>
  3191.         <id>106</id>
  3192.         <text>Mike G 02</text>
  3193.     </content>
  3194.     <content>
  3195.         <layer>background</layer>
  3196.         <id>335</id>
  3197.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike G:Mike G 02.R</text>
  3198.     </content>
  3199.     <content>
  3200.         <layer>background</layer>
  3201.         <id>311</id>
  3202.         <text>Heavenly Hunks:24-bit TIF:Mike G:Mike G 02.TIF</text>
  3203.     </content>
  3204.     <content>
  3205.         <layer>background</layer>
  3206.         <id>331</id>
  3207.         <text>Heavenly Hunks:8-bit PICT:Mike G:Mike G 02.PICT</text>
  3208.     </content>
  3209.     <name></name>
  3210.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3211. </card>
  3212.  
  3213.  
  3214. card_26762.xml
  3215. <?xml version="1.0" encoding="utf-8" ?>
  3216. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3217. <card>
  3218.     <id>26762</id>
  3219.     <filler1>0</filler1>
  3220.     <cantDelete> <false /> </cantDelete>
  3221.     <showPict> <true /> </showPict>
  3222.     <dontSearch> <false /> </dontSearch>
  3223.     <owner>2566</owner>
  3224.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3225.     <content>
  3226.         <layer>background</layer>
  3227.         <id>106</id>
  3228.         <text>Mike G 01</text>
  3229.     </content>
  3230.     <content>
  3231.         <layer>background</layer>
  3232.         <id>335</id>
  3233.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike G:Mike G 01.R</text>
  3234.     </content>
  3235.     <content>
  3236.         <layer>background</layer>
  3237.         <id>311</id>
  3238.         <text>Heavenly Hunks:24-bit TIF:Mike G:Mike G 01.TIF</text>
  3239.     </content>
  3240.     <content>
  3241.         <layer>background</layer>
  3242.         <id>331</id>
  3243.         <text>Heavenly Hunks:8-bit PICT:Mike G:Mike G 01.PICT</text>
  3244.     </content>
  3245.     <name></name>
  3246.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3247. </card>
  3248.  
  3249.  
  3250. card_31393.xml
  3251. <?xml version="1.0" encoding="utf-8" ?>
  3252. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3253. <card>
  3254.     <id>31393</id>
  3255.     <filler1>0</filler1>
  3256.     <cantDelete> <false /> </cantDelete>
  3257.     <showPict> <true /> </showPict>
  3258.     <dontSearch> <false /> </dontSearch>
  3259.     <owner>2566</owner>
  3260.     <marked><true /></marked>
  3261.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3262.     <content>
  3263.         <layer>background</layer>
  3264.         <id>106</id>
  3265.         <text>Mike D 12</text>
  3266.     </content>
  3267.     <content>
  3268.         <layer>background</layer>
  3269.         <id>335</id>
  3270.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 12.R</text>
  3271.     </content>
  3272.     <content>
  3273.         <layer>background</layer>
  3274.         <id>311</id>
  3275.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 12.TIF</text>
  3276.     </content>
  3277.     <content>
  3278.         <layer>background</layer>
  3279.         <id>331</id>
  3280.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 12.PICT</text>
  3281.     </content>
  3282.     <name></name>
  3283.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3284. </card>
  3285.  
  3286.  
  3287. card_31063.xml
  3288. <?xml version="1.0" encoding="utf-8" ?>
  3289. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3290. <card>
  3291.     <id>31063</id>
  3292.     <filler1>0</filler1>
  3293.     <cantDelete> <false /> </cantDelete>
  3294.     <showPict> <true /> </showPict>
  3295.     <dontSearch> <false /> </dontSearch>
  3296.     <owner>2566</owner>
  3297.     <marked><true /></marked>
  3298.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3299.     <content>
  3300.         <layer>background</layer>
  3301.         <id>106</id>
  3302.         <text>Mike D 11</text>
  3303.     </content>
  3304.     <content>
  3305.         <layer>background</layer>
  3306.         <id>335</id>
  3307.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 11.R</text>
  3308.     </content>
  3309.     <content>
  3310.         <layer>background</layer>
  3311.         <id>311</id>
  3312.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 11.TIF</text>
  3313.     </content>
  3314.     <content>
  3315.         <layer>background</layer>
  3316.         <id>331</id>
  3317.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 11.PICT</text>
  3318.     </content>
  3319.     <name></name>
  3320.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3321. </card>
  3322.  
  3323.  
  3324. card_30739.xml
  3325. <?xml version="1.0" encoding="utf-8" ?>
  3326. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3327. <card>
  3328.     <id>30739</id>
  3329.     <filler1>0</filler1>
  3330.     <cantDelete> <false /> </cantDelete>
  3331.     <showPict> <true /> </showPict>
  3332.     <dontSearch> <false /> </dontSearch>
  3333.     <owner>2566</owner>
  3334.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3335.     <content>
  3336.         <layer>background</layer>
  3337.         <id>106</id>
  3338.         <text>Mike D 10</text>
  3339.     </content>
  3340.     <content>
  3341.         <layer>background</layer>
  3342.         <id>335</id>
  3343.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 10.R</text>
  3344.     </content>
  3345.     <content>
  3346.         <layer>background</layer>
  3347.         <id>311</id>
  3348.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 10.TIF</text>
  3349.     </content>
  3350.     <content>
  3351.         <layer>background</layer>
  3352.         <id>331</id>
  3353.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 10.PICT</text>
  3354.     </content>
  3355.     <name></name>
  3356.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3357. </card>
  3358.  
  3359.  
  3360. card_30700.xml
  3361. <?xml version="1.0" encoding="utf-8" ?>
  3362. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3363. <card>
  3364.     <id>30700</id>
  3365.     <filler1>0</filler1>
  3366.     <cantDelete> <false /> </cantDelete>
  3367.     <showPict> <true /> </showPict>
  3368.     <dontSearch> <false /> </dontSearch>
  3369.     <owner>2566</owner>
  3370.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3371.     <content>
  3372.         <layer>background</layer>
  3373.         <id>106</id>
  3374.         <text>Mike D 09</text>
  3375.     </content>
  3376.     <content>
  3377.         <layer>background</layer>
  3378.         <id>335</id>
  3379.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 09.R</text>
  3380.     </content>
  3381.     <content>
  3382.         <layer>background</layer>
  3383.         <id>311</id>
  3384.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 09.TIF</text>
  3385.     </content>
  3386.     <content>
  3387.         <layer>background</layer>
  3388.         <id>331</id>
  3389.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 09.PICT</text>
  3390.     </content>
  3391.     <name></name>
  3392.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3393. </card>
  3394.  
  3395.  
  3396. card_30288.xml
  3397. <?xml version="1.0" encoding="utf-8" ?>
  3398. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3399. <card>
  3400.     <id>30288</id>
  3401.     <filler1>0</filler1>
  3402.     <cantDelete> <false /> </cantDelete>
  3403.     <showPict> <true /> </showPict>
  3404.     <dontSearch> <false /> </dontSearch>
  3405.     <owner>2566</owner>
  3406.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3407.     <content>
  3408.         <layer>background</layer>
  3409.         <id>106</id>
  3410.         <text>Mike D 08</text>
  3411.     </content>
  3412.     <content>
  3413.         <layer>background</layer>
  3414.         <id>335</id>
  3415.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 08.R</text>
  3416.     </content>
  3417.     <content>
  3418.         <layer>background</layer>
  3419.         <id>311</id>
  3420.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 08.TIF</text>
  3421.     </content>
  3422.     <content>
  3423.         <layer>background</layer>
  3424.         <id>331</id>
  3425.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 08.PICT</text>
  3426.     </content>
  3427.     <name></name>
  3428.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3429. </card>
  3430.  
  3431.  
  3432. card_30142.xml
  3433. <?xml version="1.0" encoding="utf-8" ?>
  3434. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3435. <card>
  3436.     <id>30142</id>
  3437.     <filler1>0</filler1>
  3438.     <cantDelete> <false /> </cantDelete>
  3439.     <showPict> <true /> </showPict>
  3440.     <dontSearch> <false /> </dontSearch>
  3441.     <owner>2566</owner>
  3442.     <marked><true /></marked>
  3443.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3444.     <content>
  3445.         <layer>background</layer>
  3446.         <id>106</id>
  3447.         <text>Mike D 07</text>
  3448.     </content>
  3449.     <content>
  3450.         <layer>background</layer>
  3451.         <id>335</id>
  3452.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 07.R</text>
  3453.     </content>
  3454.     <content>
  3455.         <layer>background</layer>
  3456.         <id>311</id>
  3457.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 07.TIF</text>
  3458.     </content>
  3459.     <content>
  3460.         <layer>background</layer>
  3461.         <id>331</id>
  3462.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 07.PICT</text>
  3463.     </content>
  3464.     <name></name>
  3465.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3466. </card>
  3467.  
  3468.  
  3469. card_29838.xml
  3470. <?xml version="1.0" encoding="utf-8" ?>
  3471. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3472. <card>
  3473.     <id>29838</id>
  3474.     <filler1>0</filler1>
  3475.     <cantDelete> <false /> </cantDelete>
  3476.     <showPict> <true /> </showPict>
  3477.     <dontSearch> <false /> </dontSearch>
  3478.     <owner>2566</owner>
  3479.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3480.     <content>
  3481.         <layer>background</layer>
  3482.         <id>106</id>
  3483.         <text>Mike D 06</text>
  3484.     </content>
  3485.     <content>
  3486.         <layer>background</layer>
  3487.         <id>335</id>
  3488.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 06.R</text>
  3489.     </content>
  3490.     <content>
  3491.         <layer>background</layer>
  3492.         <id>311</id>
  3493.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 06.TIF</text>
  3494.     </content>
  3495.     <content>
  3496.         <layer>background</layer>
  3497.         <id>331</id>
  3498.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 06.PICT</text>
  3499.     </content>
  3500.     <name></name>
  3501.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3502. </card>
  3503.  
  3504.  
  3505. card_29557.xml
  3506. <?xml version="1.0" encoding="utf-8" ?>
  3507. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3508. <card>
  3509.     <id>29557</id>
  3510.     <filler1>0</filler1>
  3511.     <cantDelete> <false /> </cantDelete>
  3512.     <showPict> <true /> </showPict>
  3513.     <dontSearch> <false /> </dontSearch>
  3514.     <owner>2566</owner>
  3515.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3516.     <content>
  3517.         <layer>background</layer>
  3518.         <id>106</id>
  3519.         <text>Mike D 05</text>
  3520.     </content>
  3521.     <content>
  3522.         <layer>background</layer>
  3523.         <id>335</id>
  3524.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 05.R</text>
  3525.     </content>
  3526.     <content>
  3527.         <layer>background</layer>
  3528.         <id>311</id>
  3529.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 05.TIF</text>
  3530.     </content>
  3531.     <content>
  3532.         <layer>background</layer>
  3533.         <id>331</id>
  3534.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 05.PICT</text>
  3535.     </content>
  3536.     <name></name>
  3537.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "205,75" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3538. </card>
  3539.  
  3540.  
  3541. card_29390.xml
  3542. <?xml version="1.0" encoding="utf-8" ?>
  3543. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3544. <card>
  3545.     <id>29390</id>
  3546.     <filler1>0</filler1>
  3547.     <cantDelete> <false /> </cantDelete>
  3548.     <showPict> <true /> </showPict>
  3549.     <dontSearch> <false /> </dontSearch>
  3550.     <owner>2566</owner>
  3551.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3552.     <content>
  3553.         <layer>background</layer>
  3554.         <id>106</id>
  3555.         <text>Mike D 04</text>
  3556.     </content>
  3557.     <content>
  3558.         <layer>background</layer>
  3559.         <id>335</id>
  3560.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 04.R</text>
  3561.     </content>
  3562.     <content>
  3563.         <layer>background</layer>
  3564.         <id>311</id>
  3565.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 04.TIF</text>
  3566.     </content>
  3567.     <content>
  3568.         <layer>background</layer>
  3569.         <id>331</id>
  3570.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 04.PICT</text>
  3571.     </content>
  3572.     <name></name>
  3573.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3574. </card>
  3575.  
  3576.  
  3577. card_29177.xml
  3578. <?xml version="1.0" encoding="utf-8" ?>
  3579. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3580. <card>
  3581.     <id>29177</id>
  3582.     <filler1>0</filler1>
  3583.     <cantDelete> <false /> </cantDelete>
  3584.     <showPict> <true /> </showPict>
  3585.     <dontSearch> <false /> </dontSearch>
  3586.     <owner>2566</owner>
  3587.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3588.     <content>
  3589.         <layer>background</layer>
  3590.         <id>106</id>
  3591.         <text>Mike D 03</text>
  3592.     </content>
  3593.     <content>
  3594.         <layer>background</layer>
  3595.         <id>335</id>
  3596.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 03.R</text>
  3597.     </content>
  3598.     <content>
  3599.         <layer>background</layer>
  3600.         <id>311</id>
  3601.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 03.TIF</text>
  3602.     </content>
  3603.     <content>
  3604.         <layer>background</layer>
  3605.         <id>331</id>
  3606.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 03.PICT</text>
  3607.     </content>
  3608.     <name></name>
  3609.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3610. </card>
  3611.  
  3612.  
  3613. card_28864.xml
  3614. <?xml version="1.0" encoding="utf-8" ?>
  3615. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3616. <card>
  3617.     <id>28864</id>
  3618.     <filler1>0</filler1>
  3619.     <cantDelete> <false /> </cantDelete>
  3620.     <showPict> <true /> </showPict>
  3621.     <dontSearch> <false /> </dontSearch>
  3622.     <owner>2566</owner>
  3623.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3624.     <content>
  3625.         <layer>background</layer>
  3626.         <id>106</id>
  3627.         <text>Mike D 02</text>
  3628.     </content>
  3629.     <content>
  3630.         <layer>background</layer>
  3631.         <id>335</id>
  3632.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 02.R</text>
  3633.     </content>
  3634.     <content>
  3635.         <layer>background</layer>
  3636.         <id>311</id>
  3637.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 02.TIF</text>
  3638.     </content>
  3639.     <content>
  3640.         <layer>background</layer>
  3641.         <id>331</id>
  3642.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 02.PICT</text>
  3643.     </content>
  3644.     <name></name>
  3645.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3646. </card>
  3647.  
  3648.  
  3649. card_28463.xml
  3650. <?xml version="1.0" encoding="utf-8" ?>
  3651. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3652. <card>
  3653.     <id>28463</id>
  3654.     <filler1>0</filler1>
  3655.     <cantDelete> <false /> </cantDelete>
  3656.     <showPict> <true /> </showPict>
  3657.     <dontSearch> <false /> </dontSearch>
  3658.     <owner>2566</owner>
  3659.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3660.     <content>
  3661.         <layer>background</layer>
  3662.         <id>106</id>
  3663.         <text>Mike D 01</text>
  3664.     </content>
  3665.     <content>
  3666.         <layer>background</layer>
  3667.         <id>335</id>
  3668.         <text>Heavenly Hunks:8-bit PICT Reduced:Mike D:Mike D 01.R</text>
  3669.     </content>
  3670.     <content>
  3671.         <layer>background</layer>
  3672.         <id>311</id>
  3673.         <text>Heavenly Hunks:24-bit TIF:Mike D:Mike D 01.TIF</text>
  3674.     </content>
  3675.     <content>
  3676.         <layer>background</layer>
  3677.         <id>331</id>
  3678.         <text>Heavenly Hunks:8-bit PICT:Mike D:Mike D 01.PICT</text>
  3679.     </content>
  3680.     <name></name>
  3681.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3682. </card>
  3683.  
  3684.  
  3685. card_34788.xml
  3686. <?xml version="1.0" encoding="utf-8" ?>
  3687. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3688. <card>
  3689.     <id>34788</id>
  3690.     <filler1>0</filler1>
  3691.     <cantDelete> <false /> </cantDelete>
  3692.     <showPict> <true /> </showPict>
  3693.     <dontSearch> <false /> </dontSearch>
  3694.     <owner>2566</owner>
  3695.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3696.     <content>
  3697.         <layer>background</layer>
  3698.         <id>106</id>
  3699.         <text>Michael 13</text>
  3700.     </content>
  3701.     <content>
  3702.         <layer>background</layer>
  3703.         <id>335</id>
  3704.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 13.R</text>
  3705.     </content>
  3706.     <content>
  3707.         <layer>background</layer>
  3708.         <id>311</id>
  3709.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 13.TIF</text>
  3710.     </content>
  3711.     <content>
  3712.         <layer>background</layer>
  3713.         <id>331</id>
  3714.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 13.PICT</text>
  3715.     </content>
  3716.     <name></name>
  3717.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3718. </card>
  3719.  
  3720.  
  3721. card_34483.xml
  3722. <?xml version="1.0" encoding="utf-8" ?>
  3723. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3724. <card>
  3725.     <id>34483</id>
  3726.     <filler1>0</filler1>
  3727.     <cantDelete> <false /> </cantDelete>
  3728.     <showPict> <true /> </showPict>
  3729.     <dontSearch> <false /> </dontSearch>
  3730.     <owner>2566</owner>
  3731.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3732.     <content>
  3733.         <layer>background</layer>
  3734.         <id>106</id>
  3735.         <text>Michael 12</text>
  3736.     </content>
  3737.     <content>
  3738.         <layer>background</layer>
  3739.         <id>335</id>
  3740.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 12.R</text>
  3741.     </content>
  3742.     <content>
  3743.         <layer>background</layer>
  3744.         <id>311</id>
  3745.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 12.TIF</text>
  3746.     </content>
  3747.     <content>
  3748.         <layer>background</layer>
  3749.         <id>331</id>
  3750.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 12.PICT</text>
  3751.     </content>
  3752.     <name></name>
  3753.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3754. </card>
  3755.  
  3756.  
  3757. card_34255.xml
  3758. <?xml version="1.0" encoding="utf-8" ?>
  3759. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3760. <card>
  3761.     <id>34255</id>
  3762.     <filler1>0</filler1>
  3763.     <cantDelete> <false /> </cantDelete>
  3764.     <showPict> <true /> </showPict>
  3765.     <dontSearch> <false /> </dontSearch>
  3766.     <owner>2566</owner>
  3767.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3768.     <content>
  3769.         <layer>background</layer>
  3770.         <id>106</id>
  3771.         <text>Michael 11</text>
  3772.     </content>
  3773.     <content>
  3774.         <layer>background</layer>
  3775.         <id>335</id>
  3776.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 11.R</text>
  3777.     </content>
  3778.     <content>
  3779.         <layer>background</layer>
  3780.         <id>311</id>
  3781.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 11.TIF</text>
  3782.     </content>
  3783.     <content>
  3784.         <layer>background</layer>
  3785.         <id>331</id>
  3786.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 11.PICT</text>
  3787.     </content>
  3788.     <name></name>
  3789.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3790. </card>
  3791.  
  3792.  
  3793. card_33849.xml
  3794. <?xml version="1.0" encoding="utf-8" ?>
  3795. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3796. <card>
  3797.     <id>33849</id>
  3798.     <filler1>0</filler1>
  3799.     <cantDelete> <false /> </cantDelete>
  3800.     <showPict> <true /> </showPict>
  3801.     <dontSearch> <false /> </dontSearch>
  3802.     <owner>2566</owner>
  3803.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3804.     <content>
  3805.         <layer>background</layer>
  3806.         <id>106</id>
  3807.         <text>Michael 10</text>
  3808.     </content>
  3809.     <content>
  3810.         <layer>background</layer>
  3811.         <id>335</id>
  3812.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 10.R</text>
  3813.     </content>
  3814.     <content>
  3815.         <layer>background</layer>
  3816.         <id>311</id>
  3817.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 10.TIF</text>
  3818.     </content>
  3819.     <content>
  3820.         <layer>background</layer>
  3821.         <id>331</id>
  3822.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 10.PICT</text>
  3823.     </content>
  3824.     <name></name>
  3825.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3826. </card>
  3827.  
  3828.  
  3829. card_33692.xml
  3830. <?xml version="1.0" encoding="utf-8" ?>
  3831. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3832. <card>
  3833.     <id>33692</id>
  3834.     <filler1>0</filler1>
  3835.     <cantDelete> <false /> </cantDelete>
  3836.     <showPict> <true /> </showPict>
  3837.     <dontSearch> <false /> </dontSearch>
  3838.     <owner>2566</owner>
  3839.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3840.     <content>
  3841.         <layer>background</layer>
  3842.         <id>106</id>
  3843.         <text>Michael 09</text>
  3844.     </content>
  3845.     <content>
  3846.         <layer>background</layer>
  3847.         <id>335</id>
  3848.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 09.R</text>
  3849.     </content>
  3850.     <content>
  3851.         <layer>background</layer>
  3852.         <id>311</id>
  3853.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 09.TIF</text>
  3854.     </content>
  3855.     <content>
  3856.         <layer>background</layer>
  3857.         <id>331</id>
  3858.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 09.PICT</text>
  3859.     </content>
  3860.     <name></name>
  3861.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3862. </card>
  3863.  
  3864.  
  3865. card_33315.xml
  3866. <?xml version="1.0" encoding="utf-8" ?>
  3867. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3868. <card>
  3869.     <id>33315</id>
  3870.     <filler1>0</filler1>
  3871.     <cantDelete> <false /> </cantDelete>
  3872.     <showPict> <true /> </showPict>
  3873.     <dontSearch> <false /> </dontSearch>
  3874.     <owner>2566</owner>
  3875.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3876.     <content>
  3877.         <layer>background</layer>
  3878.         <id>106</id>
  3879.         <text>Michael 08</text>
  3880.     </content>
  3881.     <content>
  3882.         <layer>background</layer>
  3883.         <id>335</id>
  3884.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 08.R</text>
  3885.     </content>
  3886.     <content>
  3887.         <layer>background</layer>
  3888.         <id>311</id>
  3889.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 08.TIF</text>
  3890.     </content>
  3891.     <content>
  3892.         <layer>background</layer>
  3893.         <id>331</id>
  3894.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 08.PICT</text>
  3895.     </content>
  3896.     <name></name>
  3897.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3898. </card>
  3899.  
  3900.  
  3901. card_33150.xml
  3902. <?xml version="1.0" encoding="utf-8" ?>
  3903. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3904. <card>
  3905.     <id>33150</id>
  3906.     <filler1>0</filler1>
  3907.     <cantDelete> <false /> </cantDelete>
  3908.     <showPict> <true /> </showPict>
  3909.     <dontSearch> <false /> </dontSearch>
  3910.     <owner>2566</owner>
  3911.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3912.     <content>
  3913.         <layer>background</layer>
  3914.         <id>106</id>
  3915.         <text>Michael 07</text>
  3916.     </content>
  3917.     <content>
  3918.         <layer>background</layer>
  3919.         <id>335</id>
  3920.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 07.R</text>
  3921.     </content>
  3922.     <content>
  3923.         <layer>background</layer>
  3924.         <id>311</id>
  3925.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 07.TIF</text>
  3926.     </content>
  3927.     <content>
  3928.         <layer>background</layer>
  3929.         <id>331</id>
  3930.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 07.PICT</text>
  3931.     </content>
  3932.     <name></name>
  3933.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3934. </card>
  3935.  
  3936.  
  3937. card_32934.xml
  3938. <?xml version="1.0" encoding="utf-8" ?>
  3939. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3940. <card>
  3941.     <id>32934</id>
  3942.     <filler1>0</filler1>
  3943.     <cantDelete> <false /> </cantDelete>
  3944.     <showPict> <true /> </showPict>
  3945.     <dontSearch> <false /> </dontSearch>
  3946.     <owner>2566</owner>
  3947.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3948.     <content>
  3949.         <layer>background</layer>
  3950.         <id>106</id>
  3951.         <text>Michael 06</text>
  3952.     </content>
  3953.     <content>
  3954.         <layer>background</layer>
  3955.         <id>335</id>
  3956.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 06.R</text>
  3957.     </content>
  3958.     <content>
  3959.         <layer>background</layer>
  3960.         <id>311</id>
  3961.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 06.TIF</text>
  3962.     </content>
  3963.     <content>
  3964.         <layer>background</layer>
  3965.         <id>331</id>
  3966.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 06.PICT</text>
  3967.     </content>
  3968.     <name></name>
  3969.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  3970. </card>
  3971.  
  3972.  
  3973. card_32538.xml
  3974. <?xml version="1.0" encoding="utf-8" ?>
  3975. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3976. <card>
  3977.     <id>32538</id>
  3978.     <filler1>0</filler1>
  3979.     <cantDelete> <false /> </cantDelete>
  3980.     <showPict> <true /> </showPict>
  3981.     <dontSearch> <false /> </dontSearch>
  3982.     <owner>2566</owner>
  3983.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  3984.     <content>
  3985.         <layer>background</layer>
  3986.         <id>106</id>
  3987.         <text>Michael 05</text>
  3988.     </content>
  3989.     <content>
  3990.         <layer>background</layer>
  3991.         <id>335</id>
  3992.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 05.R</text>
  3993.     </content>
  3994.     <content>
  3995.         <layer>background</layer>
  3996.         <id>311</id>
  3997.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 05.TIF</text>
  3998.     </content>
  3999.     <content>
  4000.         <layer>background</layer>
  4001.         <id>331</id>
  4002.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 05.PICT</text>
  4003.     </content>
  4004.     <name></name>
  4005.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4006. </card>
  4007.  
  4008.  
  4009. card_32352.xml
  4010. <?xml version="1.0" encoding="utf-8" ?>
  4011. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4012. <card>
  4013.     <id>32352</id>
  4014.     <filler1>0</filler1>
  4015.     <cantDelete> <false /> </cantDelete>
  4016.     <showPict> <true /> </showPict>
  4017.     <dontSearch> <false /> </dontSearch>
  4018.     <owner>2566</owner>
  4019.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4020.     <content>
  4021.         <layer>background</layer>
  4022.         <id>106</id>
  4023.         <text>Michael 04</text>
  4024.     </content>
  4025.     <content>
  4026.         <layer>background</layer>
  4027.         <id>335</id>
  4028.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 04.R</text>
  4029.     </content>
  4030.     <content>
  4031.         <layer>background</layer>
  4032.         <id>311</id>
  4033.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 04.TIF</text>
  4034.     </content>
  4035.     <content>
  4036.         <layer>background</layer>
  4037.         <id>331</id>
  4038.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 04.PICT</text>
  4039.     </content>
  4040.     <name></name>
  4041.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4042. </card>
  4043.  
  4044.  
  4045. card_32204.xml
  4046. <?xml version="1.0" encoding="utf-8" ?>
  4047. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4048. <card>
  4049.     <id>32204</id>
  4050.     <filler1>0</filler1>
  4051.     <cantDelete> <false /> </cantDelete>
  4052.     <showPict> <true /> </showPict>
  4053.     <dontSearch> <false /> </dontSearch>
  4054.     <owner>2566</owner>
  4055.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4056.     <content>
  4057.         <layer>background</layer>
  4058.         <id>106</id>
  4059.         <text>Michael 03</text>
  4060.     </content>
  4061.     <content>
  4062.         <layer>background</layer>
  4063.         <id>335</id>
  4064.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 03.R</text>
  4065.     </content>
  4066.     <content>
  4067.         <layer>background</layer>
  4068.         <id>311</id>
  4069.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 03.TIF</text>
  4070.     </content>
  4071.     <content>
  4072.         <layer>background</layer>
  4073.         <id>331</id>
  4074.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 03.PICT</text>
  4075.     </content>
  4076.     <name></name>
  4077.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4078. </card>
  4079.  
  4080.  
  4081. card_31846.xml
  4082. <?xml version="1.0" encoding="utf-8" ?>
  4083. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4084. <card>
  4085.     <id>31846</id>
  4086.     <filler1>0</filler1>
  4087.     <cantDelete> <false /> </cantDelete>
  4088.     <showPict> <true /> </showPict>
  4089.     <dontSearch> <false /> </dontSearch>
  4090.     <owner>2566</owner>
  4091.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4092.     <content>
  4093.         <layer>background</layer>
  4094.         <id>106</id>
  4095.         <text>Michael 02</text>
  4096.     </content>
  4097.     <content>
  4098.         <layer>background</layer>
  4099.         <id>335</id>
  4100.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 02.R</text>
  4101.     </content>
  4102.     <content>
  4103.         <layer>background</layer>
  4104.         <id>311</id>
  4105.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 02.TIF</text>
  4106.     </content>
  4107.     <content>
  4108.         <layer>background</layer>
  4109.         <id>331</id>
  4110.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 02.PICT</text>
  4111.     </content>
  4112.     <name></name>
  4113.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4114. </card>
  4115.  
  4116.  
  4117. card_31587.xml
  4118. <?xml version="1.0" encoding="utf-8" ?>
  4119. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4120. <card>
  4121.     <id>31587</id>
  4122.     <filler1>0</filler1>
  4123.     <cantDelete> <false /> </cantDelete>
  4124.     <showPict> <true /> </showPict>
  4125.     <dontSearch> <false /> </dontSearch>
  4126.     <owner>2566</owner>
  4127.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4128.     <content>
  4129.         <layer>background</layer>
  4130.         <id>106</id>
  4131.         <text>Michael 01</text>
  4132.     </content>
  4133.     <content>
  4134.         <layer>background</layer>
  4135.         <id>335</id>
  4136.         <text>Heavenly Hunks:8-bit PICT Reduced:Michael:Michael 01.R</text>
  4137.     </content>
  4138.     <content>
  4139.         <layer>background</layer>
  4140.         <id>311</id>
  4141.         <text>Heavenly Hunks:24-bit TIF:Michael:Michael 01.TIF</text>
  4142.     </content>
  4143.     <content>
  4144.         <layer>background</layer>
  4145.         <id>331</id>
  4146.         <text>Heavenly Hunks:8-bit PICT:Michael:Michael 01.PICT</text>
  4147.     </content>
  4148.     <name></name>
  4149.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4150. </card>
  4151.  
  4152.  
  4153. card_36823.xml
  4154. <?xml version="1.0" encoding="utf-8" ?>
  4155. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4156. <card>
  4157.     <id>36823</id>
  4158.     <filler1>0</filler1>
  4159.     <cantDelete> <false /> </cantDelete>
  4160.     <showPict> <true /> </showPict>
  4161.     <dontSearch> <false /> </dontSearch>
  4162.     <owner>2566</owner>
  4163.     <marked><true /></marked>
  4164.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4165.     <content>
  4166.         <layer>background</layer>
  4167.         <id>106</id>
  4168.         <text>John 07</text>
  4169.     </content>
  4170.     <content>
  4171.         <layer>background</layer>
  4172.         <id>335</id>
  4173.         <text>Heavenly Hunks:8-bit PICT Reduced:John:John 07.R</text>
  4174.     </content>
  4175.     <content>
  4176.         <layer>background</layer>
  4177.         <id>311</id>
  4178.         <text>Heavenly Hunks:24-bit TIF:John:John 07.TIF</text>
  4179.     </content>
  4180.     <content>
  4181.         <layer>background</layer>
  4182.         <id>331</id>
  4183.         <text>Heavenly Hunks:8-bit PICT:John:John 07.PICT</text>
  4184.     </content>
  4185.     <name></name>
  4186.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4187. </card>
  4188.  
  4189.  
  4190. card_36293.xml
  4191. <?xml version="1.0" encoding="utf-8" ?>
  4192. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4193. <card>
  4194.     <id>36293</id>
  4195.     <filler1>0</filler1>
  4196.     <cantDelete> <false /> </cantDelete>
  4197.     <showPict> <true /> </showPict>
  4198.     <dontSearch> <false /> </dontSearch>
  4199.     <owner>2566</owner>
  4200.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4201.     <content>
  4202.         <layer>background</layer>
  4203.         <id>106</id>
  4204.         <text>John 06</text>
  4205.     </content>
  4206.     <content>
  4207.         <layer>background</layer>
  4208.         <id>335</id>
  4209.         <text>Heavenly Hunks:8-bit PICT Reduced:John:John 06.R</text>
  4210.     </content>
  4211.     <content>
  4212.         <layer>background</layer>
  4213.         <id>311</id>
  4214.         <text>Heavenly Hunks:24-bit TIF:John:John 06.TIF</text>
  4215.     </content>
  4216.     <content>
  4217.         <layer>background</layer>
  4218.         <id>331</id>
  4219.         <text>Heavenly Hunks:8-bit PICT:John:John 06.PICT</text>
  4220.     </content>
  4221.     <name></name>
  4222.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4223. </card>
  4224.  
  4225.  
  4226. card_35932.xml
  4227. <?xml version="1.0" encoding="utf-8" ?>
  4228. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4229. <card>
  4230.     <id>35932</id>
  4231.     <filler1>0</filler1>
  4232.     <cantDelete> <false /> </cantDelete>
  4233.     <showPict> <true /> </showPict>
  4234.     <dontSearch> <false /> </dontSearch>
  4235.     <owner>2566</owner>
  4236.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4237.     <content>
  4238.         <layer>background</layer>
  4239.         <id>106</id>
  4240.         <text>John 05</text>
  4241.     </content>
  4242.     <content>
  4243.         <layer>background</layer>
  4244.         <id>335</id>
  4245.         <text>Heavenly Hunks:8-bit PICT Reduced:John:John 05.R</text>
  4246.     </content>
  4247.     <content>
  4248.         <layer>background</layer>
  4249.         <id>311</id>
  4250.         <text>Heavenly Hunks:24-bit TIF:John:John 05.TIF</text>
  4251.     </content>
  4252.     <content>
  4253.         <layer>background</layer>
  4254.         <id>331</id>
  4255.         <text>Heavenly Hunks:8-bit PICT:John:John 05.PICT</text>
  4256.     </content>
  4257.     <name></name>
  4258.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4259. </card>
  4260.  
  4261.  
  4262. card_35820.xml
  4263. <?xml version="1.0" encoding="utf-8" ?>
  4264. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4265. <card>
  4266.     <id>35820</id>
  4267.     <filler1>0</filler1>
  4268.     <cantDelete> <false /> </cantDelete>
  4269.     <showPict> <true /> </showPict>
  4270.     <dontSearch> <false /> </dontSearch>
  4271.     <owner>2566</owner>
  4272.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4273.     <content>
  4274.         <layer>background</layer>
  4275.         <id>106</id>
  4276.         <text>John 04</text>
  4277.     </content>
  4278.     <content>
  4279.         <layer>background</layer>
  4280.         <id>335</id>
  4281.         <text>Heavenly Hunks:8-bit PICT Reduced:John:John 04.R</text>
  4282.     </content>
  4283.     <content>
  4284.         <layer>background</layer>
  4285.         <id>311</id>
  4286.         <text>Heavenly Hunks:24-bit TIF:John:John 04.TIF</text>
  4287.     </content>
  4288.     <content>
  4289.         <layer>background</layer>
  4290.         <id>331</id>
  4291.         <text>Heavenly Hunks:8-bit PICT:John:John 04.PICT</text>
  4292.     </content>
  4293.     <name></name>
  4294.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4295. </card>
  4296.  
  4297.  
  4298. card_35401.xml
  4299. <?xml version="1.0" encoding="utf-8" ?>
  4300. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4301. <card>
  4302.     <id>35401</id>
  4303.     <filler1>0</filler1>
  4304.     <cantDelete> <false /> </cantDelete>
  4305.     <showPict> <true /> </showPict>
  4306.     <dontSearch> <false /> </dontSearch>
  4307.     <owner>2566</owner>
  4308.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4309.     <content>
  4310.         <layer>background</layer>
  4311.         <id>106</id>
  4312.         <text>John 03</text>
  4313.     </content>
  4314.     <content>
  4315.         <layer>background</layer>
  4316.         <id>335</id>
  4317.         <text>Heavenly Hunks:8-bit PICT Reduced:John:John 03.R</text>
  4318.     </content>
  4319.     <content>
  4320.         <layer>background</layer>
  4321.         <id>311</id>
  4322.         <text>Heavenly Hunks:24-bit TIF:John:John 03.TIF</text>
  4323.     </content>
  4324.     <content>
  4325.         <layer>background</layer>
  4326.         <id>331</id>
  4327.         <text>Heavenly Hunks:8-bit PICT:John:John 03.PICT</text>
  4328.     </content>
  4329.     <name></name>
  4330.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4331. </card>
  4332.  
  4333.  
  4334. card_35102.xml
  4335. <?xml version="1.0" encoding="utf-8" ?>
  4336. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4337. <card>
  4338.     <id>35102</id>
  4339.     <filler1>0</filler1>
  4340.     <cantDelete> <false /> </cantDelete>
  4341.     <showPict> <true /> </showPict>
  4342.     <dontSearch> <false /> </dontSearch>
  4343.     <owner>2566</owner>
  4344.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4345.     <content>
  4346.         <layer>background</layer>
  4347.         <id>106</id>
  4348.         <text>John 02</text>
  4349.     </content>
  4350.     <content>
  4351.         <layer>background</layer>
  4352.         <id>335</id>
  4353.         <text>Heavenly Hunks:8-bit PICT Reduced:John:John 02.R</text>
  4354.     </content>
  4355.     <content>
  4356.         <layer>background</layer>
  4357.         <id>311</id>
  4358.         <text>Heavenly Hunks:24-bit TIF:John:John 02.TIF</text>
  4359.     </content>
  4360.     <content>
  4361.         <layer>background</layer>
  4362.         <id>331</id>
  4363.         <text>Heavenly Hunks:8-bit PICT:John:John 02.PICT</text>
  4364.     </content>
  4365.     <name></name>
  4366.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4367. </card>
  4368.  
  4369.  
  4370. card_34997.xml
  4371. <?xml version="1.0" encoding="utf-8" ?>
  4372. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4373. <card>
  4374.     <id>34997</id>
  4375.     <filler1>0</filler1>
  4376.     <cantDelete> <false /> </cantDelete>
  4377.     <showPict> <true /> </showPict>
  4378.     <dontSearch> <false /> </dontSearch>
  4379.     <owner>2566</owner>
  4380.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4381.     <content>
  4382.         <layer>background</layer>
  4383.         <id>106</id>
  4384.         <text>John 01</text>
  4385.     </content>
  4386.     <content>
  4387.         <layer>background</layer>
  4388.         <id>335</id>
  4389.         <text>Heavenly Hunks:8-bit PICT Reduced:John:John 01.R</text>
  4390.     </content>
  4391.     <content>
  4392.         <layer>background</layer>
  4393.         <id>311</id>
  4394.         <text>Heavenly Hunks:24-bit TIF:John:John 01.TIF</text>
  4395.     </content>
  4396.     <content>
  4397.         <layer>background</layer>
  4398.         <id>331</id>
  4399.         <text>Heavenly Hunks:8-bit PICT:John:John 01.PICT</text>
  4400.     </content>
  4401.     <name></name>
  4402.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4403. </card>
  4404.  
  4405.  
  4406. card_41454.xml
  4407. <?xml version="1.0" encoding="utf-8" ?>
  4408. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4409. <card>
  4410.     <id>41454</id>
  4411.     <filler1>0</filler1>
  4412.     <cantDelete> <false /> </cantDelete>
  4413.     <showPict> <true /> </showPict>
  4414.     <dontSearch> <false /> </dontSearch>
  4415.     <owner>2566</owner>
  4416.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4417.     <content>
  4418.         <layer>background</layer>
  4419.         <id>106</id>
  4420.         <text>Erich 16</text>
  4421.     </content>
  4422.     <content>
  4423.         <layer>background</layer>
  4424.         <id>335</id>
  4425.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 16.R</text>
  4426.     </content>
  4427.     <content>
  4428.         <layer>background</layer>
  4429.         <id>311</id>
  4430.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 16.TIF</text>
  4431.     </content>
  4432.     <content>
  4433.         <layer>background</layer>
  4434.         <id>331</id>
  4435.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 16.PICT</text>
  4436.     </content>
  4437.     <name></name>
  4438.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4439. </card>
  4440.  
  4441.  
  4442. card_41045.xml
  4443. <?xml version="1.0" encoding="utf-8" ?>
  4444. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4445. <card>
  4446.     <id>41045</id>
  4447.     <filler1>0</filler1>
  4448.     <cantDelete> <false /> </cantDelete>
  4449.     <showPict> <true /> </showPict>
  4450.     <dontSearch> <false /> </dontSearch>
  4451.     <owner>2566</owner>
  4452.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4453.     <content>
  4454.         <layer>background</layer>
  4455.         <id>106</id>
  4456.         <text>Erich 15</text>
  4457.     </content>
  4458.     <content>
  4459.         <layer>background</layer>
  4460.         <id>335</id>
  4461.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 15.R</text>
  4462.     </content>
  4463.     <content>
  4464.         <layer>background</layer>
  4465.         <id>311</id>
  4466.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 15.TIF</text>
  4467.     </content>
  4468.     <content>
  4469.         <layer>background</layer>
  4470.         <id>331</id>
  4471.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 15.PICT</text>
  4472.     </content>
  4473.     <name></name>
  4474.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4475. </card>
  4476.  
  4477.  
  4478. card_40812.xml
  4479. <?xml version="1.0" encoding="utf-8" ?>
  4480. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4481. <card>
  4482.     <id>40812</id>
  4483.     <filler1>0</filler1>
  4484.     <cantDelete> <false /> </cantDelete>
  4485.     <showPict> <true /> </showPict>
  4486.     <dontSearch> <false /> </dontSearch>
  4487.     <owner>2566</owner>
  4488.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4489.     <content>
  4490.         <layer>background</layer>
  4491.         <id>106</id>
  4492.         <text>Erich 14</text>
  4493.     </content>
  4494.     <content>
  4495.         <layer>background</layer>
  4496.         <id>335</id>
  4497.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 14.R</text>
  4498.     </content>
  4499.     <content>
  4500.         <layer>background</layer>
  4501.         <id>311</id>
  4502.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 14.TIF</text>
  4503.     </content>
  4504.     <content>
  4505.         <layer>background</layer>
  4506.         <id>331</id>
  4507.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 14.PICT</text>
  4508.     </content>
  4509.     <name></name>
  4510.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4511. </card>
  4512.  
  4513.  
  4514. card_40474.xml
  4515. <?xml version="1.0" encoding="utf-8" ?>
  4516. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4517. <card>
  4518.     <id>40474</id>
  4519.     <filler1>0</filler1>
  4520.     <cantDelete> <false /> </cantDelete>
  4521.     <showPict> <true /> </showPict>
  4522.     <dontSearch> <false /> </dontSearch>
  4523.     <owner>2566</owner>
  4524.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4525.     <content>
  4526.         <layer>background</layer>
  4527.         <id>106</id>
  4528.         <text>Erich 13</text>
  4529.     </content>
  4530.     <content>
  4531.         <layer>background</layer>
  4532.         <id>335</id>
  4533.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 13.R</text>
  4534.     </content>
  4535.     <content>
  4536.         <layer>background</layer>
  4537.         <id>311</id>
  4538.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 13.TIF</text>
  4539.     </content>
  4540.     <content>
  4541.         <layer>background</layer>
  4542.         <id>331</id>
  4543.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 13.PICT</text>
  4544.     </content>
  4545.     <name></name>
  4546.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4547. </card>
  4548.  
  4549.  
  4550. card_40361.xml
  4551. <?xml version="1.0" encoding="utf-8" ?>
  4552. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4553. <card>
  4554.     <id>40361</id>
  4555.     <filler1>0</filler1>
  4556.     <cantDelete> <false /> </cantDelete>
  4557.     <showPict> <true /> </showPict>
  4558.     <dontSearch> <false /> </dontSearch>
  4559.     <owner>2566</owner>
  4560.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4561.     <content>
  4562.         <layer>background</layer>
  4563.         <id>106</id>
  4564.         <text>Erich 12</text>
  4565.     </content>
  4566.     <content>
  4567.         <layer>background</layer>
  4568.         <id>335</id>
  4569.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 12.R</text>
  4570.     </content>
  4571.     <content>
  4572.         <layer>background</layer>
  4573.         <id>311</id>
  4574.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 12.TIF</text>
  4575.     </content>
  4576.     <content>
  4577.         <layer>background</layer>
  4578.         <id>331</id>
  4579.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 12.PICT</text>
  4580.     </content>
  4581.     <name></name>
  4582.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4583. </card>
  4584.  
  4585.  
  4586. card_40162.xml
  4587. <?xml version="1.0" encoding="utf-8" ?>
  4588. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4589. <card>
  4590.     <id>40162</id>
  4591.     <filler1>0</filler1>
  4592.     <cantDelete> <false /> </cantDelete>
  4593.     <showPict> <true /> </showPict>
  4594.     <dontSearch> <false /> </dontSearch>
  4595.     <owner>2566</owner>
  4596.     <marked><true /></marked>
  4597.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4598.     <content>
  4599.         <layer>background</layer>
  4600.         <id>106</id>
  4601.         <text>Erich 11</text>
  4602.     </content>
  4603.     <content>
  4604.         <layer>background</layer>
  4605.         <id>335</id>
  4606.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 11.R</text>
  4607.     </content>
  4608.     <content>
  4609.         <layer>background</layer>
  4610.         <id>311</id>
  4611.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 11.TIF</text>
  4612.     </content>
  4613.     <content>
  4614.         <layer>background</layer>
  4615.         <id>331</id>
  4616.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 11.PICT</text>
  4617.     </content>
  4618.     <name></name>
  4619.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4620. </card>
  4621.  
  4622.  
  4623. card_39894.xml
  4624. <?xml version="1.0" encoding="utf-8" ?>
  4625. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4626. <card>
  4627.     <id>39894</id>
  4628.     <filler1>0</filler1>
  4629.     <cantDelete> <false /> </cantDelete>
  4630.     <showPict> <true /> </showPict>
  4631.     <dontSearch> <false /> </dontSearch>
  4632.     <owner>2566</owner>
  4633.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4634.     <content>
  4635.         <layer>background</layer>
  4636.         <id>106</id>
  4637.         <text>Erich 10</text>
  4638.     </content>
  4639.     <content>
  4640.         <layer>background</layer>
  4641.         <id>335</id>
  4642.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 10.R</text>
  4643.     </content>
  4644.     <content>
  4645.         <layer>background</layer>
  4646.         <id>311</id>
  4647.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 10.TIF</text>
  4648.     </content>
  4649.     <content>
  4650.         <layer>background</layer>
  4651.         <id>331</id>
  4652.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 10.PICT</text>
  4653.     </content>
  4654.     <name></name>
  4655.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4656. </card>
  4657.  
  4658.  
  4659. card_39554.xml
  4660. <?xml version="1.0" encoding="utf-8" ?>
  4661. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4662. <card>
  4663.     <id>39554</id>
  4664.     <filler1>0</filler1>
  4665.     <cantDelete> <false /> </cantDelete>
  4666.     <showPict> <true /> </showPict>
  4667.     <dontSearch> <false /> </dontSearch>
  4668.     <owner>2566</owner>
  4669.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4670.     <content>
  4671.         <layer>background</layer>
  4672.         <id>106</id>
  4673.         <text>Erich 09</text>
  4674.     </content>
  4675.     <content>
  4676.         <layer>background</layer>
  4677.         <id>335</id>
  4678.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 09.R</text>
  4679.     </content>
  4680.     <content>
  4681.         <layer>background</layer>
  4682.         <id>311</id>
  4683.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 09.TIF</text>
  4684.     </content>
  4685.     <content>
  4686.         <layer>background</layer>
  4687.         <id>331</id>
  4688.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 09.PICT</text>
  4689.     </content>
  4690.     <name></name>
  4691.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4692. </card>
  4693.  
  4694.  
  4695. card_39224.xml
  4696. <?xml version="1.0" encoding="utf-8" ?>
  4697. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4698. <card>
  4699.     <id>39224</id>
  4700.     <filler1>0</filler1>
  4701.     <cantDelete> <false /> </cantDelete>
  4702.     <showPict> <true /> </showPict>
  4703.     <dontSearch> <false /> </dontSearch>
  4704.     <owner>2566</owner>
  4705.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4706.     <content>
  4707.         <layer>background</layer>
  4708.         <id>106</id>
  4709.         <text>Erich 08</text>
  4710.     </content>
  4711.     <content>
  4712.         <layer>background</layer>
  4713.         <id>335</id>
  4714.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 08.R</text>
  4715.     </content>
  4716.     <content>
  4717.         <layer>background</layer>
  4718.         <id>311</id>
  4719.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 08.TIF</text>
  4720.     </content>
  4721.     <content>
  4722.         <layer>background</layer>
  4723.         <id>331</id>
  4724.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 08.PICT</text>
  4725.     </content>
  4726.     <name></name>
  4727.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4728. </card>
  4729.  
  4730.  
  4731. card_38776.xml
  4732. <?xml version="1.0" encoding="utf-8" ?>
  4733. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4734. <card>
  4735.     <id>38776</id>
  4736.     <filler1>0</filler1>
  4737.     <cantDelete> <false /> </cantDelete>
  4738.     <showPict> <true /> </showPict>
  4739.     <dontSearch> <false /> </dontSearch>
  4740.     <owner>2566</owner>
  4741.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4742.     <content>
  4743.         <layer>background</layer>
  4744.         <id>106</id>
  4745.         <text>Erich 07</text>
  4746.     </content>
  4747.     <content>
  4748.         <layer>background</layer>
  4749.         <id>335</id>
  4750.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 07.R</text>
  4751.     </content>
  4752.     <content>
  4753.         <layer>background</layer>
  4754.         <id>311</id>
  4755.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 07.TIF</text>
  4756.     </content>
  4757.     <content>
  4758.         <layer>background</layer>
  4759.         <id>331</id>
  4760.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 07.PICT</text>
  4761.     </content>
  4762.     <name></name>
  4763.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4764. </card>
  4765.  
  4766.  
  4767. card_38515.xml
  4768. <?xml version="1.0" encoding="utf-8" ?>
  4769. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4770. <card>
  4771.     <id>38515</id>
  4772.     <filler1>0</filler1>
  4773.     <cantDelete> <false /> </cantDelete>
  4774.     <showPict> <true /> </showPict>
  4775.     <dontSearch> <false /> </dontSearch>
  4776.     <owner>2566</owner>
  4777.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4778.     <content>
  4779.         <layer>background</layer>
  4780.         <id>106</id>
  4781.         <text>Erich 06</text>
  4782.     </content>
  4783.     <content>
  4784.         <layer>background</layer>
  4785.         <id>335</id>
  4786.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 06.R</text>
  4787.     </content>
  4788.     <content>
  4789.         <layer>background</layer>
  4790.         <id>311</id>
  4791.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 06.TIF</text>
  4792.     </content>
  4793.     <content>
  4794.         <layer>background</layer>
  4795.         <id>331</id>
  4796.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 06.PICT</text>
  4797.     </content>
  4798.     <name></name>
  4799.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4800. </card>
  4801.  
  4802.  
  4803. card_38188.xml
  4804. <?xml version="1.0" encoding="utf-8" ?>
  4805. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4806. <card>
  4807.     <id>38188</id>
  4808.     <filler1>0</filler1>
  4809.     <cantDelete> <false /> </cantDelete>
  4810.     <showPict> <true /> </showPict>
  4811.     <dontSearch> <false /> </dontSearch>
  4812.     <owner>2566</owner>
  4813.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4814.     <content>
  4815.         <layer>background</layer>
  4816.         <id>106</id>
  4817.         <text>Erich 05</text>
  4818.     </content>
  4819.     <content>
  4820.         <layer>background</layer>
  4821.         <id>335</id>
  4822.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 05.R</text>
  4823.     </content>
  4824.     <content>
  4825.         <layer>background</layer>
  4826.         <id>311</id>
  4827.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 05.TIF</text>
  4828.     </content>
  4829.     <content>
  4830.         <layer>background</layer>
  4831.         <id>331</id>
  4832.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 05.PICT</text>
  4833.     </content>
  4834.     <name></name>
  4835.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4836. </card>
  4837.  
  4838.  
  4839. card_37809.xml
  4840. <?xml version="1.0" encoding="utf-8" ?>
  4841. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4842. <card>
  4843.     <id>37809</id>
  4844.     <filler1>0</filler1>
  4845.     <cantDelete> <false /> </cantDelete>
  4846.     <showPict> <true /> </showPict>
  4847.     <dontSearch> <false /> </dontSearch>
  4848.     <owner>2566</owner>
  4849.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4850.     <content>
  4851.         <layer>background</layer>
  4852.         <id>106</id>
  4853.         <text>Erich 04</text>
  4854.     </content>
  4855.     <content>
  4856.         <layer>background</layer>
  4857.         <id>335</id>
  4858.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 04.R</text>
  4859.     </content>
  4860.     <content>
  4861.         <layer>background</layer>
  4862.         <id>311</id>
  4863.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 04.TIF</text>
  4864.     </content>
  4865.     <content>
  4866.         <layer>background</layer>
  4867.         <id>331</id>
  4868.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 04.PICT</text>
  4869.     </content>
  4870.     <name></name>
  4871.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4872. </card>
  4873.  
  4874.  
  4875. card_37554.xml
  4876. <?xml version="1.0" encoding="utf-8" ?>
  4877. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4878. <card>
  4879.     <id>37554</id>
  4880.     <filler1>0</filler1>
  4881.     <cantDelete> <false /> </cantDelete>
  4882.     <showPict> <true /> </showPict>
  4883.     <dontSearch> <false /> </dontSearch>
  4884.     <owner>2566</owner>
  4885.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4886.     <content>
  4887.         <layer>background</layer>
  4888.         <id>106</id>
  4889.         <text>Erich 03</text>
  4890.     </content>
  4891.     <content>
  4892.         <layer>background</layer>
  4893.         <id>335</id>
  4894.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 03.R</text>
  4895.     </content>
  4896.     <content>
  4897.         <layer>background</layer>
  4898.         <id>311</id>
  4899.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 03.TIF</text>
  4900.     </content>
  4901.     <content>
  4902.         <layer>background</layer>
  4903.         <id>331</id>
  4904.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 03.PICT</text>
  4905.     </content>
  4906.     <name></name>
  4907.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4908. </card>
  4909.  
  4910.  
  4911. card_37212.xml
  4912. <?xml version="1.0" encoding="utf-8" ?>
  4913. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4914. <card>
  4915.     <id>37212</id>
  4916.     <filler1>0</filler1>
  4917.     <cantDelete> <false /> </cantDelete>
  4918.     <showPict> <true /> </showPict>
  4919.     <dontSearch> <false /> </dontSearch>
  4920.     <owner>2566</owner>
  4921.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4922.     <content>
  4923.         <layer>background</layer>
  4924.         <id>106</id>
  4925.         <text>Erich 02</text>
  4926.     </content>
  4927.     <content>
  4928.         <layer>background</layer>
  4929.         <id>335</id>
  4930.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 02.R</text>
  4931.     </content>
  4932.     <content>
  4933.         <layer>background</layer>
  4934.         <id>311</id>
  4935.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 02.TIF</text>
  4936.     </content>
  4937.     <content>
  4938.         <layer>background</layer>
  4939.         <id>331</id>
  4940.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 02.PICT</text>
  4941.     </content>
  4942.     <name></name>
  4943.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4944. </card>
  4945.  
  4946.  
  4947. card_37026.xml
  4948. <?xml version="1.0" encoding="utf-8" ?>
  4949. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4950. <card>
  4951.     <id>37026</id>
  4952.     <filler1>0</filler1>
  4953.     <cantDelete> <false /> </cantDelete>
  4954.     <showPict> <true /> </showPict>
  4955.     <dontSearch> <false /> </dontSearch>
  4956.     <owner>2566</owner>
  4957.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4958.     <content>
  4959.         <layer>background</layer>
  4960.         <id>106</id>
  4961.         <text>Erich 01</text>
  4962.     </content>
  4963.     <content>
  4964.         <layer>background</layer>
  4965.         <id>335</id>
  4966.         <text>Heavenly Hunks:8-bit PICT Reduced:Erich:Erich 01.R</text>
  4967.     </content>
  4968.     <content>
  4969.         <layer>background</layer>
  4970.         <id>311</id>
  4971.         <text>Heavenly Hunks:24-bit TIF:Erich:Erich 01.TIF</text>
  4972.     </content>
  4973.     <content>
  4974.         <layer>background</layer>
  4975.         <id>331</id>
  4976.         <text>Heavenly Hunks:8-bit PICT:Erich:Erich 01.PICT</text>
  4977.     </content>
  4978.     <name></name>
  4979.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  4980. </card>
  4981.  
  4982.  
  4983. card_44392.xml
  4984. <?xml version="1.0" encoding="utf-8" ?>
  4985. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4986. <card>
  4987.     <id>44392</id>
  4988.     <filler1>0</filler1>
  4989.     <cantDelete> <false /> </cantDelete>
  4990.     <showPict> <true /> </showPict>
  4991.     <dontSearch> <false /> </dontSearch>
  4992.     <owner>2566</owner>
  4993.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  4994.     <content>
  4995.         <layer>background</layer>
  4996.         <id>106</id>
  4997.         <text>David 11</text>
  4998.     </content>
  4999.     <content>
  5000.         <layer>background</layer>
  5001.         <id>335</id>
  5002.         <text>Heavenly Hunks:8-bit PICT Reduced:David:David 11.R</text>
  5003.     </content>
  5004.     <content>
  5005.         <layer>background</layer>
  5006.         <id>311</id>
  5007.         <text>Heavenly Hunks:24-bit TIF:David:David 11.TIF</text>
  5008.     </content>
  5009.     <content>
  5010.         <layer>background</layer>
  5011.         <id>331</id>
  5012.         <text>Heavenly Hunks:8-bit PICT:David:David 11.PICT</text>
  5013.     </content>
  5014.     <name></name>
  5015.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5016. </card>
  5017.  
  5018.  
  5019. card_44080.xml
  5020. <?xml version="1.0" encoding="utf-8" ?>
  5021. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5022. <card>
  5023.     <id>44080</id>
  5024.     <filler1>0</filler1>
  5025.     <cantDelete> <false /> </cantDelete>
  5026.     <showPict> <true /> </showPict>
  5027.     <dontSearch> <false /> </dontSearch>
  5028.     <owner>2566</owner>
  5029.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5030.     <content>
  5031.         <layer>background</layer>
  5032.         <id>106</id>
  5033.         <text>David 10</text>
  5034.     </content>
  5035.     <content>
  5036.         <layer>background</layer>
  5037.         <id>335</id>
  5038.         <text>Heavenly Hunks:8-bit PICT Reduced:David:David 10.R</text>
  5039.     </content>
  5040.     <content>
  5041.         <layer>background</layer>
  5042.         <id>311</id>
  5043.         <text>Heavenly Hunks:24-bit TIF:David:David 10.TIF</text>
  5044.     </content>
  5045.     <content>
  5046.         <layer>background</layer>
  5047.         <id>331</id>
  5048.         <text>Heavenly Hunks:8-bit PICT:David:David 10.PICT</text>
  5049.     </content>
  5050.     <name></name>
  5051.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5052. </card>
  5053.  
  5054.  
  5055. card_43813.xml
  5056. <?xml version="1.0" encoding="utf-8" ?>
  5057. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5058. <card>
  5059.     <id>43813</id>
  5060.     <filler1>0</filler1>
  5061.     <cantDelete> <false /> </cantDelete>
  5062.     <showPict> <true /> </showPict>
  5063.     <dontSearch> <false /> </dontSearch>
  5064.     <owner>2566</owner>
  5065.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5066.     <content>
  5067.         <layer>background</layer>
  5068.         <id>106</id>
  5069.         <text>David 09</text>
  5070.     </content>
  5071.     <content>
  5072.         <layer>background</layer>
  5073.         <id>335</id>
  5074.         <text>Heavenly Hunks:8-bit PICT Reduced:David:David 09.R</text>
  5075.     </content>
  5076.     <content>
  5077.         <layer>background</layer>
  5078.         <id>311</id>
  5079.         <text>Heavenly Hunks:24-bit TIF:David:David 09.TIF</text>
  5080.     </content>
  5081.     <content>
  5082.         <layer>background</layer>
  5083.         <id>331</id>
  5084.         <text>Heavenly Hunks:8-bit PICT:David:David 09.PICT</text>
  5085.     </content>
  5086.     <name></name>
  5087.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5088. </card>
  5089.  
  5090.  
  5091. card_43683.xml
  5092. <?xml version="1.0" encoding="utf-8" ?>
  5093. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5094. <card>
  5095.     <id>43683</id>
  5096.     <filler1>0</filler1>
  5097.     <cantDelete> <false /> </cantDelete>
  5098.     <showPict> <true /> </showPict>
  5099.     <dontSearch> <false /> </dontSearch>
  5100.     <owner>2566</owner>
  5101.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5102.     <content>
  5103.         <layer>background</layer>
  5104.         <id>106</id>
  5105.         <text>David 08</text>
  5106.     </content>
  5107.     <content>
  5108.         <layer>background</layer>
  5109.         <id>335</id>
  5110.         <text>Heavenly Hunks:8-bit PICT Reduced:David:David 08.R</text>
  5111.     </content>
  5112.     <content>
  5113.         <layer>background</layer>
  5114.         <id>311</id>
  5115.         <text>Heavenly Hunks:24-bit TIF:David:David 08.TIF</text>
  5116.     </content>
  5117.     <content>
  5118.         <layer>background</layer>
  5119.         <id>331</id>
  5120.         <text>Heavenly Hunks:8-bit PICT:David:David 08.PICT</text>
  5121.     </content>
  5122.     <name></name>
  5123.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5124. </card>
  5125.  
  5126.  
  5127. card_43440.xml
  5128. <?xml version="1.0" encoding="utf-8" ?>
  5129. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5130. <card>
  5131.     <id>43440</id>
  5132.     <filler1>0</filler1>
  5133.     <cantDelete> <false /> </cantDelete>
  5134.     <showPict> <true /> </showPict>
  5135.     <dontSearch> <false /> </dontSearch>
  5136.     <owner>2566</owner>
  5137.     <marked><true /></marked>
  5138.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5139.     <content>
  5140.         <layer>background</layer>
  5141.         <id>106</id>
  5142.         <text>David 07</text>
  5143.     </content>
  5144.     <content>
  5145.         <layer>background</layer>
  5146.         <id>335</id>
  5147.         <text>Heavenly Hunks:8-bit PICT Reduced:David:David 07.R</text>
  5148.     </content>
  5149.     <content>
  5150.         <layer>background</layer>
  5151.         <id>311</id>
  5152.         <text>Heavenly Hunks:24-bit TIF:David:David 07.TIF</text>
  5153.     </content>
  5154.     <content>
  5155.         <layer>background</layer>
  5156.         <id>331</id>
  5157.         <text>Heavenly Hunks:8-bit PICT:David:David 07.PICT</text>
  5158.     </content>
  5159.     <name></name>
  5160.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5161. </card>
  5162.  
  5163.  
  5164. card_42968.xml
  5165. <?xml version="1.0" encoding="utf-8" ?>
  5166. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5167. <card>
  5168.     <id>42968</id>
  5169.     <filler1>0</filler1>
  5170.     <cantDelete> <false /> </cantDelete>
  5171.     <showPict> <true /> </showPict>
  5172.     <dontSearch> <false /> </dontSearch>
  5173.     <owner>2566</owner>
  5174.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5175.     <content>
  5176.         <layer>background</layer>
  5177.         <id>106</id>
  5178.         <text>David 06</text>
  5179.     </content>
  5180.     <content>
  5181.         <layer>background</layer>
  5182.         <id>335</id>
  5183.         <text>Heavenly Hunks:8-bit PICT Reduced:David:David 06.R</text>
  5184.     </content>
  5185.     <content>
  5186.         <layer>background</layer>
  5187.         <id>311</id>
  5188.         <text>Heavenly Hunks:24-bit TIF:David:David 06.TIF</text>
  5189.     </content>
  5190.     <content>
  5191.         <layer>background</layer>
  5192.         <id>331</id>
  5193.         <text>Heavenly Hunks:8-bit PICT:David:David 06.PICT</text>
  5194.     </content>
  5195.     <name></name>
  5196.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5197. </card>
  5198.  
  5199.  
  5200. card_42661.xml
  5201. <?xml version="1.0" encoding="utf-8" ?>
  5202. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5203. <card>
  5204.     <id>42661</id>
  5205.     <filler1>0</filler1>
  5206.     <cantDelete> <false /> </cantDelete>
  5207.     <showPict> <true /> </showPict>
  5208.     <dontSearch> <false /> </dontSearch>
  5209.     <owner>2566</owner>
  5210.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5211.     <content>
  5212.         <layer>background</layer>
  5213.         <id>106</id>
  5214.         <text>David 05</text>
  5215.     </content>
  5216.     <content>
  5217.         <layer>background</layer>
  5218.         <id>335</id>
  5219.         <text>Heavenly Hunks:8-bit PICT Reduced:David:David 05.R</text>
  5220.     </content>
  5221.     <content>
  5222.         <layer>background</layer>
  5223.         <id>311</id>
  5224.         <text>Heavenly Hunks:24-bit TIF:David:David 05.TIF</text>
  5225.     </content>
  5226.     <content>
  5227.         <layer>background</layer>
  5228.         <id>331</id>
  5229.         <text>Heavenly Hunks:8-bit PICT:David:David 05.PICT</text>
  5230.     </content>
  5231.     <name></name>
  5232.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5233. </card>
  5234.  
  5235.  
  5236. card_42445.xml
  5237. <?xml version="1.0" encoding="utf-8" ?>
  5238. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5239. <card>
  5240.     <id>42445</id>
  5241.     <filler1>0</filler1>
  5242.     <cantDelete> <false /> </cantDelete>
  5243.     <showPict> <true /> </showPict>
  5244.     <dontSearch> <false /> </dontSearch>
  5245.     <owner>2566</owner>
  5246.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5247.     <content>
  5248.         <layer>background</layer>
  5249.         <id>106</id>
  5250.         <text>David 04</text>
  5251.     </content>
  5252.     <content>
  5253.         <layer>background</layer>
  5254.         <id>335</id>
  5255.         <text>Heavenly Hunks:8-bit PICT Reduced:David:David 04.R</text>
  5256.     </content>
  5257.     <content>
  5258.         <layer>background</layer>
  5259.         <id>311</id>
  5260.         <text>Heavenly Hunks:24-bit TIF:David:David 04.TIF</text>
  5261.     </content>
  5262.     <content>
  5263.         <layer>background</layer>
  5264.         <id>331</id>
  5265.         <text>Heavenly Hunks:8-bit PICT:David:David 04.PICT</text>
  5266.     </content>
  5267.     <name></name>
  5268.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5269. </card>
  5270.  
  5271.  
  5272. card_42121.xml
  5273. <?xml version="1.0" encoding="utf-8" ?>
  5274. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5275. <card>
  5276.     <id>42121</id>
  5277.     <filler1>0</filler1>
  5278.     <cantDelete> <false /> </cantDelete>
  5279.     <showPict> <true /> </showPict>
  5280.     <dontSearch> <false /> </dontSearch>
  5281.     <owner>2566</owner>
  5282.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5283.     <content>
  5284.         <layer>background</layer>
  5285.         <id>106</id>
  5286.         <text>David 03</text>
  5287.     </content>
  5288.     <content>
  5289.         <layer>background</layer>
  5290.         <id>335</id>
  5291.         <text>Heavenly Hunks:8-bit PICT Reduced:David:David 03.R</text>
  5292.     </content>
  5293.     <content>
  5294.         <layer>background</layer>
  5295.         <id>311</id>
  5296.         <text>Heavenly Hunks:24-bit TIF:David:David 03.TIF</text>
  5297.     </content>
  5298.     <content>
  5299.         <layer>background</layer>
  5300.         <id>331</id>
  5301.         <text>Heavenly Hunks:8-bit PICT:David:David 03.PICT</text>
  5302.     </content>
  5303.     <name></name>
  5304.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5305. </card>
  5306.  
  5307.  
  5308. card_41933.xml
  5309. <?xml version="1.0" encoding="utf-8" ?>
  5310. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5311. <card>
  5312.     <id>41933</id>
  5313.     <filler1>0</filler1>
  5314.     <cantDelete> <false /> </cantDelete>
  5315.     <showPict> <true /> </showPict>
  5316.     <dontSearch> <false /> </dontSearch>
  5317.     <owner>2566</owner>
  5318.     <marked><true /></marked>
  5319.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5320.     <content>
  5321.         <layer>background</layer>
  5322.         <id>106</id>
  5323.         <text>David 02</text>
  5324.     </content>
  5325.     <content>
  5326.         <layer>background</layer>
  5327.         <id>335</id>
  5328.         <text>Heavenly Hunks:8-bit PICT Reduced:David:David 02.R</text>
  5329.     </content>
  5330.     <content>
  5331.         <layer>background</layer>
  5332.         <id>311</id>
  5333.         <text>Heavenly Hunks:24-bit TIF:David:David 02.TIF</text>
  5334.     </content>
  5335.     <content>
  5336.         <layer>background</layer>
  5337.         <id>331</id>
  5338.         <text>Heavenly Hunks:8-bit PICT:David:David 02.PICT</text>
  5339.     </content>
  5340.     <name></name>
  5341.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5342. </card>
  5343.  
  5344.  
  5345. card_41697.xml
  5346. <?xml version="1.0" encoding="utf-8" ?>
  5347. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5348. <card>
  5349.     <id>41697</id>
  5350.     <filler1>0</filler1>
  5351.     <cantDelete> <false /> </cantDelete>
  5352.     <showPict> <true /> </showPict>
  5353.     <dontSearch> <false /> </dontSearch>
  5354.     <owner>2566</owner>
  5355.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5356.     <content>
  5357.         <layer>background</layer>
  5358.         <id>106</id>
  5359.         <text>David 01</text>
  5360.     </content>
  5361.     <content>
  5362.         <layer>background</layer>
  5363.         <id>335</id>
  5364.         <text>Heavenly Hunks:8-bit PICT Reduced:David:David 01.R</text>
  5365.     </content>
  5366.     <content>
  5367.         <layer>background</layer>
  5368.         <id>311</id>
  5369.         <text>Heavenly Hunks:24-bit TIF:David:David 01.TIF</text>
  5370.     </content>
  5371.     <content>
  5372.         <layer>background</layer>
  5373.         <id>331</id>
  5374.         <text>Heavenly Hunks:8-bit PICT:David:David 01.PICT</text>
  5375.     </content>
  5376.     <name></name>
  5377.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5378. </card>
  5379.  
  5380.  
  5381. card_46833.xml
  5382. <?xml version="1.0" encoding="utf-8" ?>
  5383. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5384. <card>
  5385.     <id>46833</id>
  5386.     <filler1>0</filler1>
  5387.     <cantDelete> <false /> </cantDelete>
  5388.     <showPict> <true /> </showPict>
  5389.     <dontSearch> <false /> </dontSearch>
  5390.     <owner>2566</owner>
  5391.     <marked><true /></marked>
  5392.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5393.     <content>
  5394.         <layer>background</layer>
  5395.         <id>106</id>
  5396.         <text>Dan 09</text>
  5397.     </content>
  5398.     <content>
  5399.         <layer>background</layer>
  5400.         <id>335</id>
  5401.         <text>Heavenly Hunks:8-bit PICT Reduced:Dan:Dan 09.R</text>
  5402.     </content>
  5403.     <content>
  5404.         <layer>background</layer>
  5405.         <id>311</id>
  5406.         <text>Heavenly Hunks:24-bit TIF:Dan:Dan 09.TIF</text>
  5407.     </content>
  5408.     <content>
  5409.         <layer>background</layer>
  5410.         <id>331</id>
  5411.         <text>Heavenly Hunks:8-bit PICT:Dan:Dan 09.PICT</text>
  5412.     </content>
  5413.     <name></name>
  5414.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5415. </card>
  5416.  
  5417.  
  5418. card_46531.xml
  5419. <?xml version="1.0" encoding="utf-8" ?>
  5420. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5421. <card>
  5422.     <id>46531</id>
  5423.     <filler1>0</filler1>
  5424.     <cantDelete> <false /> </cantDelete>
  5425.     <showPict> <true /> </showPict>
  5426.     <dontSearch> <false /> </dontSearch>
  5427.     <owner>2566</owner>
  5428.     <marked><true /></marked>
  5429.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5430.     <content>
  5431.         <layer>background</layer>
  5432.         <id>106</id>
  5433.         <text>Dan 08</text>
  5434.     </content>
  5435.     <content>
  5436.         <layer>background</layer>
  5437.         <id>335</id>
  5438.         <text>Heavenly Hunks:8-bit PICT Reduced:Dan:Dan 08.R</text>
  5439.     </content>
  5440.     <content>
  5441.         <layer>background</layer>
  5442.         <id>311</id>
  5443.         <text>Heavenly Hunks:24-bit TIF:Dan:Dan 08.TIF</text>
  5444.     </content>
  5445.     <content>
  5446.         <layer>background</layer>
  5447.         <id>331</id>
  5448.         <text>Heavenly Hunks:8-bit PICT:Dan:Dan 08.PICT</text>
  5449.     </content>
  5450.     <name></name>
  5451.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5452. </card>
  5453.  
  5454.  
  5455. card_46254.xml
  5456. <?xml version="1.0" encoding="utf-8" ?>
  5457. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5458. <card>
  5459.     <id>46254</id>
  5460.     <filler1>0</filler1>
  5461.     <cantDelete> <false /> </cantDelete>
  5462.     <showPict> <true /> </showPict>
  5463.     <dontSearch> <false /> </dontSearch>
  5464.     <owner>2566</owner>
  5465.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5466.     <content>
  5467.         <layer>background</layer>
  5468.         <id>106</id>
  5469.         <text>Dan 07</text>
  5470.     </content>
  5471.     <content>
  5472.         <layer>background</layer>
  5473.         <id>335</id>
  5474.         <text>Heavenly Hunks:8-bit PICT Reduced:Dan:Dan 07.R</text>
  5475.     </content>
  5476.     <content>
  5477.         <layer>background</layer>
  5478.         <id>311</id>
  5479.         <text>Heavenly Hunks:24-bit TIF:Dan:Dan 07.TIF</text>
  5480.     </content>
  5481.     <content>
  5482.         <layer>background</layer>
  5483.         <id>331</id>
  5484.         <text>Heavenly Hunks:8-bit PICT:Dan:Dan 07.PICT</text>
  5485.     </content>
  5486.     <name></name>
  5487.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5488. </card>
  5489.  
  5490.  
  5491. card_45958.xml
  5492. <?xml version="1.0" encoding="utf-8" ?>
  5493. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5494. <card>
  5495.     <id>45958</id>
  5496.     <filler1>0</filler1>
  5497.     <cantDelete> <false /> </cantDelete>
  5498.     <showPict> <true /> </showPict>
  5499.     <dontSearch> <false /> </dontSearch>
  5500.     <owner>2566</owner>
  5501.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5502.     <content>
  5503.         <layer>background</layer>
  5504.         <id>106</id>
  5505.         <text>Dan 06</text>
  5506.     </content>
  5507.     <content>
  5508.         <layer>background</layer>
  5509.         <id>335</id>
  5510.         <text>Heavenly Hunks:8-bit PICT Reduced:Dan:Dan 06.R</text>
  5511.     </content>
  5512.     <content>
  5513.         <layer>background</layer>
  5514.         <id>311</id>
  5515.         <text>Heavenly Hunks:24-bit TIF:Dan:Dan 06.TIF</text>
  5516.     </content>
  5517.     <content>
  5518.         <layer>background</layer>
  5519.         <id>331</id>
  5520.         <text>Heavenly Hunks:8-bit PICT:Dan:Dan 06.PICT</text>
  5521.     </content>
  5522.     <name></name>
  5523.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5524. </card>
  5525.  
  5526.  
  5527. card_45784.xml
  5528. <?xml version="1.0" encoding="utf-8" ?>
  5529. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5530. <card>
  5531.     <id>45784</id>
  5532.     <filler1>0</filler1>
  5533.     <cantDelete> <false /> </cantDelete>
  5534.     <showPict> <true /> </showPict>
  5535.     <dontSearch> <false /> </dontSearch>
  5536.     <owner>2566</owner>
  5537.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5538.     <content>
  5539.         <layer>background</layer>
  5540.         <id>106</id>
  5541.         <text>Dan 05</text>
  5542.     </content>
  5543.     <content>
  5544.         <layer>background</layer>
  5545.         <id>335</id>
  5546.         <text>Heavenly Hunks:8-bit PICT Reduced:Dan:Dan 05.R</text>
  5547.     </content>
  5548.     <content>
  5549.         <layer>background</layer>
  5550.         <id>311</id>
  5551.         <text>Heavenly Hunks:24-bit TIF:Dan:Dan 05.TIF</text>
  5552.     </content>
  5553.     <content>
  5554.         <layer>background</layer>
  5555.         <id>331</id>
  5556.         <text>Heavenly Hunks:8-bit PICT:Dan:Dan 05.PICT</text>
  5557.     </content>
  5558.     <name></name>
  5559.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5560. </card>
  5561.  
  5562.  
  5563. card_45429.xml
  5564. <?xml version="1.0" encoding="utf-8" ?>
  5565. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5566. <card>
  5567.     <id>45429</id>
  5568.     <filler1>0</filler1>
  5569.     <cantDelete> <false /> </cantDelete>
  5570.     <showPict> <true /> </showPict>
  5571.     <dontSearch> <false /> </dontSearch>
  5572.     <owner>2566</owner>
  5573.     <marked><true /></marked>
  5574.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5575.     <content>
  5576.         <layer>background</layer>
  5577.         <id>106</id>
  5578.         <text>Dan 04</text>
  5579.     </content>
  5580.     <content>
  5581.         <layer>background</layer>
  5582.         <id>335</id>
  5583.         <text>Heavenly Hunks:8-bit PICT Reduced:Dan:Dan 04.R</text>
  5584.     </content>
  5585.     <content>
  5586.         <layer>background</layer>
  5587.         <id>311</id>
  5588.         <text>Heavenly Hunks:24-bit TIF:Dan:Dan 04.TIF</text>
  5589.     </content>
  5590.     <content>
  5591.         <layer>background</layer>
  5592.         <id>331</id>
  5593.         <text>Heavenly Hunks:8-bit PICT:Dan:Dan 04.PICT</text>
  5594.     </content>
  5595.     <name></name>
  5596.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5597. </card>
  5598.  
  5599.  
  5600. card_45167.xml
  5601. <?xml version="1.0" encoding="utf-8" ?>
  5602. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5603. <card>
  5604.     <id>45167</id>
  5605.     <filler1>0</filler1>
  5606.     <cantDelete> <false /> </cantDelete>
  5607.     <showPict> <true /> </showPict>
  5608.     <dontSearch> <false /> </dontSearch>
  5609.     <owner>2566</owner>
  5610.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5611.     <content>
  5612.         <layer>background</layer>
  5613.         <id>106</id>
  5614.         <text>Dan 03</text>
  5615.     </content>
  5616.     <content>
  5617.         <layer>background</layer>
  5618.         <id>335</id>
  5619.         <text>Heavenly Hunks:8-bit PICT Reduced:Dan:Dan 03.R</text>
  5620.     </content>
  5621.     <content>
  5622.         <layer>background</layer>
  5623.         <id>311</id>
  5624.         <text>Heavenly Hunks:24-bit TIF:Dan:Dan 03.TIF</text>
  5625.     </content>
  5626.     <content>
  5627.         <layer>background</layer>
  5628.         <id>331</id>
  5629.         <text>Heavenly Hunks:8-bit PICT:Dan:Dan 03.PICT</text>
  5630.     </content>
  5631.     <name></name>
  5632.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5633. </card>
  5634.  
  5635.  
  5636. card_44964.xml
  5637. <?xml version="1.0" encoding="utf-8" ?>
  5638. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5639. <card>
  5640.     <id>44964</id>
  5641.     <filler1>0</filler1>
  5642.     <cantDelete> <false /> </cantDelete>
  5643.     <showPict> <true /> </showPict>
  5644.     <dontSearch> <false /> </dontSearch>
  5645.     <owner>2566</owner>
  5646.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5647.     <content>
  5648.         <layer>background</layer>
  5649.         <id>106</id>
  5650.         <text>Dan 02</text>
  5651.     </content>
  5652.     <content>
  5653.         <layer>background</layer>
  5654.         <id>335</id>
  5655.         <text>Heavenly Hunks:8-bit PICT Reduced:Dan:Dan 02.R</text>
  5656.     </content>
  5657.     <content>
  5658.         <layer>background</layer>
  5659.         <id>311</id>
  5660.         <text>Heavenly Hunks:24-bit TIF:Dan:Dan 02.TIF</text>
  5661.     </content>
  5662.     <content>
  5663.         <layer>background</layer>
  5664.         <id>331</id>
  5665.         <text>Heavenly Hunks:8-bit PICT:Dan:Dan 02.PICT</text>
  5666.     </content>
  5667.     <name></name>
  5668.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5669. </card>
  5670.  
  5671.  
  5672. card_44708.xml
  5673. <?xml version="1.0" encoding="utf-8" ?>
  5674. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5675. <card>
  5676.     <id>44708</id>
  5677.     <filler1>0</filler1>
  5678.     <cantDelete> <false /> </cantDelete>
  5679.     <showPict> <true /> </showPict>
  5680.     <dontSearch> <false /> </dontSearch>
  5681.     <owner>2566</owner>
  5682.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5683.     <content>
  5684.         <layer>background</layer>
  5685.         <id>106</id>
  5686.         <text>Dan 01</text>
  5687.     </content>
  5688.     <content>
  5689.         <layer>background</layer>
  5690.         <id>335</id>
  5691.         <text>Heavenly Hunks:8-bit PICT Reduced:Dan:Dan 01.R</text>
  5692.     </content>
  5693.     <content>
  5694.         <layer>background</layer>
  5695.         <id>311</id>
  5696.         <text>Heavenly Hunks:24-bit TIF:Dan:Dan 01.TIF</text>
  5697.     </content>
  5698.     <content>
  5699.         <layer>background</layer>
  5700.         <id>331</id>
  5701.         <text>Heavenly Hunks:8-bit PICT:Dan:Dan 01.PICT</text>
  5702.     </content>
  5703.     <name></name>
  5704.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5705. </card>
  5706.  
  5707.  
  5708. card_48757.xml
  5709. <?xml version="1.0" encoding="utf-8" ?>
  5710. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5711. <card>
  5712.     <id>48757</id>
  5713.     <filler1>0</filler1>
  5714.     <cantDelete> <false /> </cantDelete>
  5715.     <showPict> <true /> </showPict>
  5716.     <dontSearch> <false /> </dontSearch>
  5717.     <owner>2566</owner>
  5718.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5719.     <content>
  5720.         <layer>background</layer>
  5721.         <id>106</id>
  5722.         <text>Cory 07</text>
  5723.     </content>
  5724.     <content>
  5725.         <layer>background</layer>
  5726.         <id>335</id>
  5727.         <text>Heavenly Hunks:8-bit PICT Reduced:Cory:Cory 07.R</text>
  5728.     </content>
  5729.     <content>
  5730.         <layer>background</layer>
  5731.         <id>311</id>
  5732.         <text>Heavenly Hunks:24-bit TIF:Cory:Cory 07.TIF</text>
  5733.     </content>
  5734.     <content>
  5735.         <layer>background</layer>
  5736.         <id>331</id>
  5737.         <text>Heavenly Hunks:8-bit PICT:Cory:Cory 07.PICT</text>
  5738.     </content>
  5739.     <name></name>
  5740.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5741. </card>
  5742.  
  5743.  
  5744. card_48528.xml
  5745. <?xml version="1.0" encoding="utf-8" ?>
  5746. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5747. <card>
  5748.     <id>48528</id>
  5749.     <filler1>0</filler1>
  5750.     <cantDelete> <false /> </cantDelete>
  5751.     <showPict> <true /> </showPict>
  5752.     <dontSearch> <false /> </dontSearch>
  5753.     <owner>2566</owner>
  5754.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5755.     <content>
  5756.         <layer>background</layer>
  5757.         <id>106</id>
  5758.         <text>Cory 06</text>
  5759.     </content>
  5760.     <content>
  5761.         <layer>background</layer>
  5762.         <id>335</id>
  5763.         <text>Heavenly Hunks:8-bit PICT Reduced:Cory:Cory 06.R</text>
  5764.     </content>
  5765.     <content>
  5766.         <layer>background</layer>
  5767.         <id>311</id>
  5768.         <text>Heavenly Hunks:24-bit TIF:Cory:Cory 06.TIF</text>
  5769.     </content>
  5770.     <content>
  5771.         <layer>background</layer>
  5772.         <id>331</id>
  5773.         <text>Heavenly Hunks:8-bit PICT:Cory:Cory 06.PICT</text>
  5774.     </content>
  5775.     <name></name>
  5776.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5777. </card>
  5778.  
  5779.  
  5780. card_48174.xml
  5781. <?xml version="1.0" encoding="utf-8" ?>
  5782. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5783. <card>
  5784.     <id>48174</id>
  5785.     <filler1>0</filler1>
  5786.     <cantDelete> <false /> </cantDelete>
  5787.     <showPict> <true /> </showPict>
  5788.     <dontSearch> <false /> </dontSearch>
  5789.     <owner>2566</owner>
  5790.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5791.     <content>
  5792.         <layer>background</layer>
  5793.         <id>106</id>
  5794.         <text>Cory 05</text>
  5795.     </content>
  5796.     <content>
  5797.         <layer>background</layer>
  5798.         <id>335</id>
  5799.         <text>Heavenly Hunks:8-bit PICT Reduced:Cory:Cory 05.R</text>
  5800.     </content>
  5801.     <content>
  5802.         <layer>background</layer>
  5803.         <id>311</id>
  5804.         <text>Heavenly Hunks:24-bit TIF:Cory:Cory 05.TIF</text>
  5805.     </content>
  5806.     <content>
  5807.         <layer>background</layer>
  5808.         <id>331</id>
  5809.         <text>Heavenly Hunks:8-bit PICT:Cory:Cory 05.PICT</text>
  5810.     </content>
  5811.     <name></name>
  5812.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5813. </card>
  5814.  
  5815.  
  5816. card_47979.xml
  5817. <?xml version="1.0" encoding="utf-8" ?>
  5818. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5819. <card>
  5820.     <id>47979</id>
  5821.     <filler1>0</filler1>
  5822.     <cantDelete> <false /> </cantDelete>
  5823.     <showPict> <true /> </showPict>
  5824.     <dontSearch> <false /> </dontSearch>
  5825.     <owner>2566</owner>
  5826.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5827.     <content>
  5828.         <layer>background</layer>
  5829.         <id>106</id>
  5830.         <text>Cory 04</text>
  5831.     </content>
  5832.     <content>
  5833.         <layer>background</layer>
  5834.         <id>335</id>
  5835.         <text>Heavenly Hunks:8-bit PICT Reduced:Cory:Cory 04.R</text>
  5836.     </content>
  5837.     <content>
  5838.         <layer>background</layer>
  5839.         <id>311</id>
  5840.         <text>Heavenly Hunks:24-bit TIF:Cory:Cory 04.TIF</text>
  5841.     </content>
  5842.     <content>
  5843.         <layer>background</layer>
  5844.         <id>331</id>
  5845.         <text>Heavenly Hunks:8-bit PICT:Cory:Cory 04.PICT</text>
  5846.     </content>
  5847.     <name></name>
  5848.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5849. </card>
  5850.  
  5851.  
  5852. card_47784.xml
  5853. <?xml version="1.0" encoding="utf-8" ?>
  5854. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5855. <card>
  5856.     <id>47784</id>
  5857.     <filler1>0</filler1>
  5858.     <cantDelete> <false /> </cantDelete>
  5859.     <showPict> <true /> </showPict>
  5860.     <dontSearch> <false /> </dontSearch>
  5861.     <owner>2566</owner>
  5862.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5863.     <content>
  5864.         <layer>background</layer>
  5865.         <id>106</id>
  5866.         <text>Cory 03</text>
  5867.     </content>
  5868.     <content>
  5869.         <layer>background</layer>
  5870.         <id>335</id>
  5871.         <text>Heavenly Hunks:8-bit PICT Reduced:Cory:Cory 03.R</text>
  5872.     </content>
  5873.     <content>
  5874.         <layer>background</layer>
  5875.         <id>311</id>
  5876.         <text>Heavenly Hunks:24-bit TIF:Cory:Cory 03.TIF</text>
  5877.     </content>
  5878.     <content>
  5879.         <layer>background</layer>
  5880.         <id>331</id>
  5881.         <text>Heavenly Hunks:8-bit PICT:Cory:Cory 03.PICT</text>
  5882.     </content>
  5883.     <name></name>
  5884.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5885. </card>
  5886.  
  5887.  
  5888. card_47597.xml
  5889. <?xml version="1.0" encoding="utf-8" ?>
  5890. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5891. <card>
  5892.     <id>47597</id>
  5893.     <filler1>0</filler1>
  5894.     <cantDelete> <false /> </cantDelete>
  5895.     <showPict> <true /> </showPict>
  5896.     <dontSearch> <false /> </dontSearch>
  5897.     <owner>2566</owner>
  5898.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5899.     <content>
  5900.         <layer>background</layer>
  5901.         <id>106</id>
  5902.         <text>Cory 02</text>
  5903.     </content>
  5904.     <content>
  5905.         <layer>background</layer>
  5906.         <id>335</id>
  5907.         <text>Heavenly Hunks:8-bit PICT Reduced:Cory:Cory 02.R</text>
  5908.     </content>
  5909.     <content>
  5910.         <layer>background</layer>
  5911.         <id>311</id>
  5912.         <text>Heavenly Hunks:24-bit TIF:Cory:Cory 02.TIF</text>
  5913.     </content>
  5914.     <content>
  5915.         <layer>background</layer>
  5916.         <id>331</id>
  5917.         <text>Heavenly Hunks:8-bit PICT:Cory:Cory 02.PICT</text>
  5918.     </content>
  5919.     <name></name>
  5920.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5921. </card>
  5922.  
  5923.  
  5924. card_46880.xml
  5925. <?xml version="1.0" encoding="utf-8" ?>
  5926. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5927. <card>
  5928.     <id>46880</id>
  5929.     <filler1>0</filler1>
  5930.     <cantDelete> <false /> </cantDelete>
  5931.     <showPict> <true /> </showPict>
  5932.     <dontSearch> <false /> </dontSearch>
  5933.     <owner>2566</owner>
  5934.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5935.     <content>
  5936.         <layer>background</layer>
  5937.         <id>106</id>
  5938.         <text>Cory 01</text>
  5939.     </content>
  5940.     <content>
  5941.         <layer>background</layer>
  5942.         <id>335</id>
  5943.         <text>Heavenly Hunks:8-bit PICT Reduced:Cory:Cory 01.R</text>
  5944.     </content>
  5945.     <content>
  5946.         <layer>background</layer>
  5947.         <id>311</id>
  5948.         <text>Heavenly Hunks:24-bit TIF:Cory:Cory 01.TIF</text>
  5949.     </content>
  5950.     <content>
  5951.         <layer>background</layer>
  5952.         <id>331</id>
  5953.         <text>Heavenly Hunks:8-bit PICT:Cory:Cory 01.PICT</text>
  5954.     </content>
  5955.     <name></name>
  5956.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5957. </card>
  5958.  
  5959.  
  5960. card_50729.xml
  5961. <?xml version="1.0" encoding="utf-8" ?>
  5962. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5963. <card>
  5964.     <id>50729</id>
  5965.     <filler1>0</filler1>
  5966.     <cantDelete> <false /> </cantDelete>
  5967.     <showPict> <true /> </showPict>
  5968.     <dontSearch> <false /> </dontSearch>
  5969.     <owner>2566</owner>
  5970.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  5971.     <content>
  5972.         <layer>background</layer>
  5973.         <id>106</id>
  5974.         <text>Christopher 08</text>
  5975.     </content>
  5976.     <content>
  5977.         <layer>background</layer>
  5978.         <id>335</id>
  5979.         <text>Heavenly Hunks:8-bit PICT Reduced:Christopher:Christopher 08.R</text>
  5980.     </content>
  5981.     <content>
  5982.         <layer>background</layer>
  5983.         <id>311</id>
  5984.         <text>Heavenly Hunks:24-bit TIF:Christopher:Christopher 08.TIF</text>
  5985.     </content>
  5986.     <content>
  5987.         <layer>background</layer>
  5988.         <id>331</id>
  5989.         <text>Heavenly Hunks:8-bit PICT:Christopher:Christopher 08.PICT</text>
  5990.     </content>
  5991.     <name></name>
  5992.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  5993. </card>
  5994.  
  5995.  
  5996. card_50533.xml
  5997. <?xml version="1.0" encoding="utf-8" ?>
  5998. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5999. <card>
  6000.     <id>50533</id>
  6001.     <filler1>0</filler1>
  6002.     <cantDelete> <false /> </cantDelete>
  6003.     <showPict> <true /> </showPict>
  6004.     <dontSearch> <false /> </dontSearch>
  6005.     <owner>2566</owner>
  6006.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6007.     <content>
  6008.         <layer>background</layer>
  6009.         <id>106</id>
  6010.         <text>Christopher 07</text>
  6011.     </content>
  6012.     <content>
  6013.         <layer>background</layer>
  6014.         <id>335</id>
  6015.         <text>Heavenly Hunks:8-bit PICT Reduced:Christopher:Christopher 07.R</text>
  6016.     </content>
  6017.     <content>
  6018.         <layer>background</layer>
  6019.         <id>311</id>
  6020.         <text>Heavenly Hunks:24-bit TIF:Christopher:Christopher 07.TIF</text>
  6021.     </content>
  6022.     <content>
  6023.         <layer>background</layer>
  6024.         <id>331</id>
  6025.         <text>Heavenly Hunks:8-bit PICT:Christopher:Christopher 07.PICT</text>
  6026.     </content>
  6027.     <name></name>
  6028.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6029. </card>
  6030.  
  6031.  
  6032. card_50300.xml
  6033. <?xml version="1.0" encoding="utf-8" ?>
  6034. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6035. <card>
  6036.     <id>50300</id>
  6037.     <filler1>0</filler1>
  6038.     <cantDelete> <false /> </cantDelete>
  6039.     <showPict> <true /> </showPict>
  6040.     <dontSearch> <false /> </dontSearch>
  6041.     <owner>2566</owner>
  6042.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6043.     <content>
  6044.         <layer>background</layer>
  6045.         <id>106</id>
  6046.         <text>Christopher 06</text>
  6047.     </content>
  6048.     <content>
  6049.         <layer>background</layer>
  6050.         <id>335</id>
  6051.         <text>Heavenly Hunks:8-bit PICT Reduced:Christopher:Christopher 06.R</text>
  6052.     </content>
  6053.     <content>
  6054.         <layer>background</layer>
  6055.         <id>311</id>
  6056.         <text>Heavenly Hunks:24-bit TIF:Christopher:Christopher 06.TIF</text>
  6057.     </content>
  6058.     <content>
  6059.         <layer>background</layer>
  6060.         <id>331</id>
  6061.         <text>Heavenly Hunks:8-bit PICT:Christopher:Christopher 06.PICT</text>
  6062.     </content>
  6063.     <name></name>
  6064.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6065. </card>
  6066.  
  6067.  
  6068. card_49983.xml
  6069. <?xml version="1.0" encoding="utf-8" ?>
  6070. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6071. <card>
  6072.     <id>49983</id>
  6073.     <filler1>0</filler1>
  6074.     <cantDelete> <false /> </cantDelete>
  6075.     <showPict> <true /> </showPict>
  6076.     <dontSearch> <false /> </dontSearch>
  6077.     <owner>2566</owner>
  6078.     <marked><true /></marked>
  6079.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6080.     <content>
  6081.         <layer>background</layer>
  6082.         <id>106</id>
  6083.         <text>Christopher 05</text>
  6084.     </content>
  6085.     <content>
  6086.         <layer>background</layer>
  6087.         <id>335</id>
  6088.         <text>Heavenly Hunks:8-bit PICT Reduced:Christopher:Christopher 05.R</text>
  6089.     </content>
  6090.     <content>
  6091.         <layer>background</layer>
  6092.         <id>311</id>
  6093.         <text>Heavenly Hunks:24-bit TIF:Christopher:Christopher 05.TIF</text>
  6094.     </content>
  6095.     <content>
  6096.         <layer>background</layer>
  6097.         <id>331</id>
  6098.         <text>Heavenly Hunks:8-bit PICT:Christopher:Christopher 05.PICT</text>
  6099.     </content>
  6100.     <name></name>
  6101.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6102. </card>
  6103.  
  6104.  
  6105. card_49693.xml
  6106. <?xml version="1.0" encoding="utf-8" ?>
  6107. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6108. <card>
  6109.     <id>49693</id>
  6110.     <filler1>0</filler1>
  6111.     <cantDelete> <false /> </cantDelete>
  6112.     <showPict> <true /> </showPict>
  6113.     <dontSearch> <false /> </dontSearch>
  6114.     <owner>2566</owner>
  6115.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6116.     <content>
  6117.         <layer>background</layer>
  6118.         <id>106</id>
  6119.         <text>Christopher 04</text>
  6120.     </content>
  6121.     <content>
  6122.         <layer>background</layer>
  6123.         <id>335</id>
  6124.         <text>Heavenly Hunks:8-bit PICT Reduced:Christopher:Christopher 04.R</text>
  6125.     </content>
  6126.     <content>
  6127.         <layer>background</layer>
  6128.         <id>311</id>
  6129.         <text>Heavenly Hunks:24-bit TIF:Christopher:Christopher 04.TIF</text>
  6130.     </content>
  6131.     <content>
  6132.         <layer>background</layer>
  6133.         <id>331</id>
  6134.         <text>Heavenly Hunks:8-bit PICT:Christopher:Christopher 04.PICT</text>
  6135.     </content>
  6136.     <name></name>
  6137.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6138. </card>
  6139.  
  6140.  
  6141. card_49512.xml
  6142. <?xml version="1.0" encoding="utf-8" ?>
  6143. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6144. <card>
  6145.     <id>49512</id>
  6146.     <filler1>0</filler1>
  6147.     <cantDelete> <false /> </cantDelete>
  6148.     <showPict> <true /> </showPict>
  6149.     <dontSearch> <false /> </dontSearch>
  6150.     <owner>2566</owner>
  6151.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6152.     <content>
  6153.         <layer>background</layer>
  6154.         <id>106</id>
  6155.         <text>Christopher 03</text>
  6156.     </content>
  6157.     <content>
  6158.         <layer>background</layer>
  6159.         <id>335</id>
  6160.         <text>Heavenly Hunks:8-bit PICT Reduced:Christopher:Christopher 03.R</text>
  6161.     </content>
  6162.     <content>
  6163.         <layer>background</layer>
  6164.         <id>311</id>
  6165.         <text>Heavenly Hunks:24-bit TIF:Christopher:Christopher 03.TIF</text>
  6166.     </content>
  6167.     <content>
  6168.         <layer>background</layer>
  6169.         <id>331</id>
  6170.         <text>Heavenly Hunks:8-bit PICT:Christopher:Christopher 03.PICT</text>
  6171.     </content>
  6172.     <name></name>
  6173.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6174. </card>
  6175.  
  6176.  
  6177. card_49198.xml
  6178. <?xml version="1.0" encoding="utf-8" ?>
  6179. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6180. <card>
  6181.     <id>49198</id>
  6182.     <filler1>0</filler1>
  6183.     <cantDelete> <false /> </cantDelete>
  6184.     <showPict> <true /> </showPict>
  6185.     <dontSearch> <false /> </dontSearch>
  6186.     <owner>2566</owner>
  6187.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6188.     <content>
  6189.         <layer>background</layer>
  6190.         <id>106</id>
  6191.         <text>Christopher 02</text>
  6192.     </content>
  6193.     <content>
  6194.         <layer>background</layer>
  6195.         <id>335</id>
  6196.         <text>Heavenly Hunks:8-bit PICT Reduced:Christopher:Christopher 02.R</text>
  6197.     </content>
  6198.     <content>
  6199.         <layer>background</layer>
  6200.         <id>311</id>
  6201.         <text>Heavenly Hunks:24-bit TIF:Christopher:Christopher 02.TIF</text>
  6202.     </content>
  6203.     <content>
  6204.         <layer>background</layer>
  6205.         <id>331</id>
  6206.         <text>Heavenly Hunks:8-bit PICT:Christopher:Christopher 02.PICT</text>
  6207.     </content>
  6208.     <name></name>
  6209.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6210. </card>
  6211.  
  6212.  
  6213. card_48997.xml
  6214. <?xml version="1.0" encoding="utf-8" ?>
  6215. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6216. <card>
  6217.     <id>48997</id>
  6218.     <filler1>0</filler1>
  6219.     <cantDelete> <false /> </cantDelete>
  6220.     <showPict> <true /> </showPict>
  6221.     <dontSearch> <false /> </dontSearch>
  6222.     <owner>2566</owner>
  6223.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6224.     <content>
  6225.         <layer>background</layer>
  6226.         <id>106</id>
  6227.         <text>Christopher 01</text>
  6228.     </content>
  6229.     <content>
  6230.         <layer>background</layer>
  6231.         <id>335</id>
  6232.         <text>Heavenly Hunks:8-bit PICT Reduced:Christopher:Christopher 01.R</text>
  6233.     </content>
  6234.     <content>
  6235.         <layer>background</layer>
  6236.         <id>311</id>
  6237.         <text>Heavenly Hunks:24-bit TIF:Christopher:Christopher 01.TIF</text>
  6238.     </content>
  6239.     <content>
  6240.         <layer>background</layer>
  6241.         <id>331</id>
  6242.         <text>Heavenly Hunks:8-bit PICT:Christopher:Christopher 01.PICT</text>
  6243.     </content>
  6244.     <name></name>
  6245.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6246. </card>
  6247.  
  6248.  
  6249. card_52929.xml
  6250. <?xml version="1.0" encoding="utf-8" ?>
  6251. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6252. <card>
  6253.     <id>52929</id>
  6254.     <filler1>0</filler1>
  6255.     <cantDelete> <false /> </cantDelete>
  6256.     <showPict> <true /> </showPict>
  6257.     <dontSearch> <false /> </dontSearch>
  6258.     <owner>2566</owner>
  6259.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6260.     <content>
  6261.         <layer>background</layer>
  6262.         <id>106</id>
  6263.         <text>Brian 08</text>
  6264.     </content>
  6265.     <content>
  6266.         <layer>background</layer>
  6267.         <id>335</id>
  6268.         <text>Heavenly Hunks:8-bit PICT Reduced:Brian:Brian 08.R</text>
  6269.     </content>
  6270.     <content>
  6271.         <layer>background</layer>
  6272.         <id>311</id>
  6273.         <text>Heavenly Hunks:24-bit TIF:Brian:Brian 08.TIF</text>
  6274.     </content>
  6275.     <content>
  6276.         <layer>background</layer>
  6277.         <id>331</id>
  6278.         <text>Heavenly Hunks:8-bit PICT:Brian:Brian 08.PICT</text>
  6279.     </content>
  6280.     <name></name>
  6281.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6282. </card>
  6283.  
  6284.  
  6285. card_52566.xml
  6286. <?xml version="1.0" encoding="utf-8" ?>
  6287. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6288. <card>
  6289.     <id>52566</id>
  6290.     <filler1>0</filler1>
  6291.     <cantDelete> <false /> </cantDelete>
  6292.     <showPict> <true /> </showPict>
  6293.     <dontSearch> <false /> </dontSearch>
  6294.     <owner>2566</owner>
  6295.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6296.     <content>
  6297.         <layer>background</layer>
  6298.         <id>106</id>
  6299.         <text>Brian 07</text>
  6300.     </content>
  6301.     <content>
  6302.         <layer>background</layer>
  6303.         <id>335</id>
  6304.         <text>Heavenly Hunks:8-bit PICT Reduced:Brian:Brian 07.R</text>
  6305.     </content>
  6306.     <content>
  6307.         <layer>background</layer>
  6308.         <id>311</id>
  6309.         <text>Heavenly Hunks:24-bit TIF:Brian:Brian 07.TIF</text>
  6310.     </content>
  6311.     <content>
  6312.         <layer>background</layer>
  6313.         <id>331</id>
  6314.         <text>Heavenly Hunks:8-bit PICT:Brian:Brian 07.PICT</text>
  6315.     </content>
  6316.     <name></name>
  6317.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6318. </card>
  6319.  
  6320.  
  6321. card_52386.xml
  6322. <?xml version="1.0" encoding="utf-8" ?>
  6323. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6324. <card>
  6325.     <id>52386</id>
  6326.     <filler1>0</filler1>
  6327.     <cantDelete> <false /> </cantDelete>
  6328.     <showPict> <true /> </showPict>
  6329.     <dontSearch> <false /> </dontSearch>
  6330.     <owner>2566</owner>
  6331.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6332.     <content>
  6333.         <layer>background</layer>
  6334.         <id>106</id>
  6335.         <text>Brian 06</text>
  6336.     </content>
  6337.     <content>
  6338.         <layer>background</layer>
  6339.         <id>335</id>
  6340.         <text>Heavenly Hunks:8-bit PICT Reduced:Brian:Brian 06.R</text>
  6341.     </content>
  6342.     <content>
  6343.         <layer>background</layer>
  6344.         <id>311</id>
  6345.         <text>Heavenly Hunks:24-bit TIF:Brian:Brian 06.TIF</text>
  6346.     </content>
  6347.     <content>
  6348.         <layer>background</layer>
  6349.         <id>331</id>
  6350.         <text>Heavenly Hunks:8-bit PICT:Brian:Brian 06.PICT</text>
  6351.     </content>
  6352.     <name></name>
  6353.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6354. </card>
  6355.  
  6356.  
  6357. card_52172.xml
  6358. <?xml version="1.0" encoding="utf-8" ?>
  6359. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6360. <card>
  6361.     <id>52172</id>
  6362.     <filler1>0</filler1>
  6363.     <cantDelete> <false /> </cantDelete>
  6364.     <showPict> <true /> </showPict>
  6365.     <dontSearch> <false /> </dontSearch>
  6366.     <owner>2566</owner>
  6367.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6368.     <content>
  6369.         <layer>background</layer>
  6370.         <id>106</id>
  6371.         <text>Brian 05</text>
  6372.     </content>
  6373.     <content>
  6374.         <layer>background</layer>
  6375.         <id>335</id>
  6376.         <text>Heavenly Hunks:8-bit PICT Reduced:Brian:Brian 05.R</text>
  6377.     </content>
  6378.     <content>
  6379.         <layer>background</layer>
  6380.         <id>311</id>
  6381.         <text>Heavenly Hunks:24-bit TIF:Brian:Brian 05.TIF</text>
  6382.     </content>
  6383.     <content>
  6384.         <layer>background</layer>
  6385.         <id>331</id>
  6386.         <text>Heavenly Hunks:8-bit PICT:Brian:Brian 05.PICT</text>
  6387.     </content>
  6388.     <name></name>
  6389.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6390. </card>
  6391.  
  6392.  
  6393. card_51883.xml
  6394. <?xml version="1.0" encoding="utf-8" ?>
  6395. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6396. <card>
  6397.     <id>51883</id>
  6398.     <filler1>0</filler1>
  6399.     <cantDelete> <false /> </cantDelete>
  6400.     <showPict> <true /> </showPict>
  6401.     <dontSearch> <false /> </dontSearch>
  6402.     <owner>2566</owner>
  6403.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6404.     <content>
  6405.         <layer>background</layer>
  6406.         <id>106</id>
  6407.         <text>Brian 04</text>
  6408.     </content>
  6409.     <content>
  6410.         <layer>background</layer>
  6411.         <id>335</id>
  6412.         <text>Heavenly Hunks:8-bit PICT Reduced:Brian:Brian 04.R</text>
  6413.     </content>
  6414.     <content>
  6415.         <layer>background</layer>
  6416.         <id>311</id>
  6417.         <text>Heavenly Hunks:24-bit TIF:Brian:Brian 04.TIF</text>
  6418.     </content>
  6419.     <content>
  6420.         <layer>background</layer>
  6421.         <id>331</id>
  6422.         <text>Heavenly Hunks:8-bit PICT:Brian:Brian 04.PICT</text>
  6423.     </content>
  6424.     <name></name>
  6425.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6426. </card>
  6427.  
  6428.  
  6429. card_51663.xml
  6430. <?xml version="1.0" encoding="utf-8" ?>
  6431. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6432. <card>
  6433.     <id>51663</id>
  6434.     <filler1>0</filler1>
  6435.     <cantDelete> <false /> </cantDelete>
  6436.     <showPict> <true /> </showPict>
  6437.     <dontSearch> <false /> </dontSearch>
  6438.     <owner>2566</owner>
  6439.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6440.     <content>
  6441.         <layer>background</layer>
  6442.         <id>106</id>
  6443.         <text>Brian 03</text>
  6444.     </content>
  6445.     <content>
  6446.         <layer>background</layer>
  6447.         <id>335</id>
  6448.         <text>Heavenly Hunks:8-bit PICT Reduced:Brian:Brian 03.R</text>
  6449.     </content>
  6450.     <content>
  6451.         <layer>background</layer>
  6452.         <id>311</id>
  6453.         <text>Heavenly Hunks:24-bit TIF:Brian:Brian 03.TIF</text>
  6454.     </content>
  6455.     <content>
  6456.         <layer>background</layer>
  6457.         <id>331</id>
  6458.         <text>Heavenly Hunks:8-bit PICT:Brian:Brian 03.PICT</text>
  6459.     </content>
  6460.     <name></name>
  6461.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6462. </card>
  6463.  
  6464.  
  6465. card_51354.xml
  6466. <?xml version="1.0" encoding="utf-8" ?>
  6467. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6468. <card>
  6469.     <id>51354</id>
  6470.     <filler1>0</filler1>
  6471.     <cantDelete> <false /> </cantDelete>
  6472.     <showPict> <true /> </showPict>
  6473.     <dontSearch> <false /> </dontSearch>
  6474.     <owner>2566</owner>
  6475.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6476.     <content>
  6477.         <layer>background</layer>
  6478.         <id>106</id>
  6479.         <text>Brian 02</text>
  6480.     </content>
  6481.     <content>
  6482.         <layer>background</layer>
  6483.         <id>335</id>
  6484.         <text>Heavenly Hunks:8-bit PICT Reduced:Brian:Brian 02.R</text>
  6485.     </content>
  6486.     <content>
  6487.         <layer>background</layer>
  6488.         <id>311</id>
  6489.         <text>Heavenly Hunks:24-bit TIF:Brian:Brian 02.TIF</text>
  6490.     </content>
  6491.     <content>
  6492.         <layer>background</layer>
  6493.         <id>331</id>
  6494.         <text>Heavenly Hunks:8-bit PICT:Brian:Brian 02.PICT</text>
  6495.     </content>
  6496.     <name></name>
  6497.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6498. </card>
  6499.  
  6500.  
  6501. card_51125.xml
  6502. <?xml version="1.0" encoding="utf-8" ?>
  6503. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6504. <card>
  6505.     <id>51125</id>
  6506.     <filler1>0</filler1>
  6507.     <cantDelete> <false /> </cantDelete>
  6508.     <showPict> <true /> </showPict>
  6509.     <dontSearch> <false /> </dontSearch>
  6510.     <owner>2566</owner>
  6511.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6512.     <content>
  6513.         <layer>background</layer>
  6514.         <id>106</id>
  6515.         <text>Brian 01</text>
  6516.     </content>
  6517.     <content>
  6518.         <layer>background</layer>
  6519.         <id>335</id>
  6520.         <text>Heavenly Hunks:8-bit PICT Reduced:Brian:Brian 01.R</text>
  6521.     </content>
  6522.     <content>
  6523.         <layer>background</layer>
  6524.         <id>311</id>
  6525.         <text>Heavenly Hunks:24-bit TIF:Brian:Brian 01.TIF</text>
  6526.     </content>
  6527.     <content>
  6528.         <layer>background</layer>
  6529.         <id>331</id>
  6530.         <text>Heavenly Hunks:8-bit PICT:Brian:Brian 01.PICT</text>
  6531.     </content>
  6532.     <name></name>
  6533.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6534. </card>
  6535.  
  6536.  
  6537. card_54615.xml
  6538. <?xml version="1.0" encoding="utf-8" ?>
  6539. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6540. <card>
  6541.     <id>54615</id>
  6542.     <filler1>0</filler1>
  6543.     <cantDelete> <false /> </cantDelete>
  6544.     <showPict> <true /> </showPict>
  6545.     <dontSearch> <false /> </dontSearch>
  6546.     <owner>2566</owner>
  6547.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6548.     <content>
  6549.         <layer>background</layer>
  6550.         <id>106</id>
  6551.         <text>Brett 06</text>
  6552.     </content>
  6553.     <content>
  6554.         <layer>background</layer>
  6555.         <id>335</id>
  6556.         <text>Heavenly Hunks:8-bit PICT Reduced:Brett:Brett 06.R</text>
  6557.     </content>
  6558.     <content>
  6559.         <layer>background</layer>
  6560.         <id>311</id>
  6561.         <text>Heavenly Hunks:24-bit TIF:Brett:Brett 06.TIF</text>
  6562.     </content>
  6563.     <content>
  6564.         <layer>background</layer>
  6565.         <id>331</id>
  6566.         <text>Heavenly Hunks:8-bit PICT:Brett:Brett 06.PICT</text>
  6567.     </content>
  6568.     <name></name>
  6569.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6570. </card>
  6571.  
  6572.  
  6573. card_54349.xml
  6574. <?xml version="1.0" encoding="utf-8" ?>
  6575. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6576. <card>
  6577.     <id>54349</id>
  6578.     <filler1>0</filler1>
  6579.     <cantDelete> <false /> </cantDelete>
  6580.     <showPict> <true /> </showPict>
  6581.     <dontSearch> <false /> </dontSearch>
  6582.     <owner>2566</owner>
  6583.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6584.     <content>
  6585.         <layer>background</layer>
  6586.         <id>106</id>
  6587.         <text>Brett 05</text>
  6588.     </content>
  6589.     <content>
  6590.         <layer>background</layer>
  6591.         <id>335</id>
  6592.         <text>Heavenly Hunks:8-bit PICT Reduced:Brett:Brett 05.R</text>
  6593.     </content>
  6594.     <content>
  6595.         <layer>background</layer>
  6596.         <id>311</id>
  6597.         <text>Heavenly Hunks:24-bit TIF:Brett:Brett 05.TIF</text>
  6598.     </content>
  6599.     <content>
  6600.         <layer>background</layer>
  6601.         <id>331</id>
  6602.         <text>Heavenly Hunks:8-bit PICT:Brett:Brett 05.PICT</text>
  6603.     </content>
  6604.     <name></name>
  6605.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6606. </card>
  6607.  
  6608.  
  6609. card_54246.xml
  6610. <?xml version="1.0" encoding="utf-8" ?>
  6611. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6612. <card>
  6613.     <id>54246</id>
  6614.     <filler1>0</filler1>
  6615.     <cantDelete> <false /> </cantDelete>
  6616.     <showPict> <true /> </showPict>
  6617.     <dontSearch> <false /> </dontSearch>
  6618.     <owner>2566</owner>
  6619.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6620.     <content>
  6621.         <layer>background</layer>
  6622.         <id>106</id>
  6623.         <text>Brett 04</text>
  6624.     </content>
  6625.     <content>
  6626.         <layer>background</layer>
  6627.         <id>335</id>
  6628.         <text>Heavenly Hunks:8-bit PICT Reduced:Brett:Brett 04.R</text>
  6629.     </content>
  6630.     <content>
  6631.         <layer>background</layer>
  6632.         <id>311</id>
  6633.         <text>Heavenly Hunks:24-bit TIF:Brett:Brett 04.TIF</text>
  6634.     </content>
  6635.     <content>
  6636.         <layer>background</layer>
  6637.         <id>331</id>
  6638.         <text>Heavenly Hunks:8-bit PICT:Brett:Brett 04.PICT</text>
  6639.     </content>
  6640.     <name></name>
  6641.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6642. </card>
  6643.  
  6644.  
  6645. card_53780.xml
  6646. <?xml version="1.0" encoding="utf-8" ?>
  6647. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6648. <card>
  6649.     <id>53780</id>
  6650.     <filler1>0</filler1>
  6651.     <cantDelete> <false /> </cantDelete>
  6652.     <showPict> <true /> </showPict>
  6653.     <dontSearch> <false /> </dontSearch>
  6654.     <owner>2566</owner>
  6655.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6656.     <content>
  6657.         <layer>background</layer>
  6658.         <id>106</id>
  6659.         <text>Brett 03</text>
  6660.     </content>
  6661.     <content>
  6662.         <layer>background</layer>
  6663.         <id>335</id>
  6664.         <text>Heavenly Hunks:8-bit PICT Reduced:Brett:Brett 03.R</text>
  6665.     </content>
  6666.     <content>
  6667.         <layer>background</layer>
  6668.         <id>311</id>
  6669.         <text>Heavenly Hunks:24-bit TIF:Brett:Brett 03.TIF</text>
  6670.     </content>
  6671.     <content>
  6672.         <layer>background</layer>
  6673.         <id>331</id>
  6674.         <text>Heavenly Hunks:8-bit PICT:Brett:Brett 03.PICT</text>
  6675.     </content>
  6676.     <name></name>
  6677.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6678. </card>
  6679.  
  6680.  
  6681. card_53732.xml
  6682. <?xml version="1.0" encoding="utf-8" ?>
  6683. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6684. <card>
  6685.     <id>53732</id>
  6686.     <filler1>0</filler1>
  6687.     <cantDelete> <false /> </cantDelete>
  6688.     <showPict> <true /> </showPict>
  6689.     <dontSearch> <false /> </dontSearch>
  6690.     <owner>2566</owner>
  6691.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6692.     <content>
  6693.         <layer>background</layer>
  6694.         <id>106</id>
  6695.         <text>Brett 02</text>
  6696.     </content>
  6697.     <content>
  6698.         <layer>background</layer>
  6699.         <id>335</id>
  6700.         <text>Heavenly Hunks:8-bit PICT Reduced:Brett:Brett 02.R</text>
  6701.     </content>
  6702.     <content>
  6703.         <layer>background</layer>
  6704.         <id>311</id>
  6705.         <text>Heavenly Hunks:24-bit TIF:Brett:Brett 02.TIF</text>
  6706.     </content>
  6707.     <content>
  6708.         <layer>background</layer>
  6709.         <id>331</id>
  6710.         <text>Heavenly Hunks:8-bit PICT:Brett:Brett 02.PICT</text>
  6711.     </content>
  6712.     <name></name>
  6713.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6714. </card>
  6715.  
  6716.  
  6717. card_53356.xml
  6718. <?xml version="1.0" encoding="utf-8" ?>
  6719. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6720. <card>
  6721.     <id>53356</id>
  6722.     <filler1>0</filler1>
  6723.     <cantDelete> <false /> </cantDelete>
  6724.     <showPict> <true /> </showPict>
  6725.     <dontSearch> <false /> </dontSearch>
  6726.     <owner>2566</owner>
  6727.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6728.     <content>
  6729.         <layer>background</layer>
  6730.         <id>106</id>
  6731.         <text>Brett 01</text>
  6732.     </content>
  6733.     <content>
  6734.         <layer>background</layer>
  6735.         <id>335</id>
  6736.         <text>Heavenly Hunks:8-bit PICT Reduced:Brett:Brett 01.R</text>
  6737.     </content>
  6738.     <content>
  6739.         <layer>background</layer>
  6740.         <id>311</id>
  6741.         <text>Heavenly Hunks:24-bit TIF:Brett:Brett 01.TIF</text>
  6742.     </content>
  6743.     <content>
  6744.         <layer>background</layer>
  6745.         <id>331</id>
  6746.         <text>Heavenly Hunks:8-bit PICT:Brett:Brett 01.PICT</text>
  6747.     </content>
  6748.     <name></name>
  6749.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6750. </card>
  6751.  
  6752.  
  6753. card_58596.xml
  6754. <?xml version="1.0" encoding="utf-8" ?>
  6755. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6756. <card>
  6757.     <id>58596</id>
  6758.     <filler1>0</filler1>
  6759.     <cantDelete> <false /> </cantDelete>
  6760.     <showPict> <true /> </showPict>
  6761.     <dontSearch> <false /> </dontSearch>
  6762.     <owner>2566</owner>
  6763.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6764.     <content>
  6765.         <layer>background</layer>
  6766.         <id>106</id>
  6767.         <text>Billy 13</text>
  6768.     </content>
  6769.     <content>
  6770.         <layer>background</layer>
  6771.         <id>335</id>
  6772.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 13.R</text>
  6773.     </content>
  6774.     <content>
  6775.         <layer>background</layer>
  6776.         <id>311</id>
  6777.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 13.TIF</text>
  6778.     </content>
  6779.     <content>
  6780.         <layer>background</layer>
  6781.         <id>331</id>
  6782.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 13.PICT</text>
  6783.     </content>
  6784.     <name></name>
  6785.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6786. </card>
  6787.  
  6788.  
  6789. card_58135.xml
  6790. <?xml version="1.0" encoding="utf-8" ?>
  6791. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6792. <card>
  6793.     <id>58135</id>
  6794.     <filler1>0</filler1>
  6795.     <cantDelete> <false /> </cantDelete>
  6796.     <showPict> <true /> </showPict>
  6797.     <dontSearch> <false /> </dontSearch>
  6798.     <owner>2566</owner>
  6799.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6800.     <content>
  6801.         <layer>background</layer>
  6802.         <id>106</id>
  6803.         <text>Billy 12</text>
  6804.     </content>
  6805.     <content>
  6806.         <layer>background</layer>
  6807.         <id>335</id>
  6808.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 12.R</text>
  6809.     </content>
  6810.     <content>
  6811.         <layer>background</layer>
  6812.         <id>311</id>
  6813.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 12.TIF</text>
  6814.     </content>
  6815.     <content>
  6816.         <layer>background</layer>
  6817.         <id>331</id>
  6818.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 12.PICT</text>
  6819.     </content>
  6820.     <name></name>
  6821.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6822. </card>
  6823.  
  6824.  
  6825. card_58033.xml
  6826. <?xml version="1.0" encoding="utf-8" ?>
  6827. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6828. <card>
  6829.     <id>58033</id>
  6830.     <filler1>0</filler1>
  6831.     <cantDelete> <false /> </cantDelete>
  6832.     <showPict> <true /> </showPict>
  6833.     <dontSearch> <false /> </dontSearch>
  6834.     <owner>2566</owner>
  6835.     <marked><true /></marked>
  6836.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6837.     <content>
  6838.         <layer>background</layer>
  6839.         <id>106</id>
  6840.         <text>Billy 11</text>
  6841.     </content>
  6842.     <content>
  6843.         <layer>background</layer>
  6844.         <id>335</id>
  6845.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 11.R</text>
  6846.     </content>
  6847.     <content>
  6848.         <layer>background</layer>
  6849.         <id>311</id>
  6850.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 11.TIF</text>
  6851.     </content>
  6852.     <content>
  6853.         <layer>background</layer>
  6854.         <id>331</id>
  6855.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 11.PICT</text>
  6856.     </content>
  6857.     <name></name>
  6858.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6859. </card>
  6860.  
  6861.  
  6862. card_57824.xml
  6863. <?xml version="1.0" encoding="utf-8" ?>
  6864. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6865. <card>
  6866.     <id>57824</id>
  6867.     <filler1>0</filler1>
  6868.     <cantDelete> <false /> </cantDelete>
  6869.     <showPict> <true /> </showPict>
  6870.     <dontSearch> <false /> </dontSearch>
  6871.     <owner>2566</owner>
  6872.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6873.     <content>
  6874.         <layer>background</layer>
  6875.         <id>106</id>
  6876.         <text>Billy 10</text>
  6877.     </content>
  6878.     <content>
  6879.         <layer>background</layer>
  6880.         <id>335</id>
  6881.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 10.R</text>
  6882.     </content>
  6883.     <content>
  6884.         <layer>background</layer>
  6885.         <id>311</id>
  6886.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 10.TIF</text>
  6887.     </content>
  6888.     <content>
  6889.         <layer>background</layer>
  6890.         <id>331</id>
  6891.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 10.PICT</text>
  6892.     </content>
  6893.     <name></name>
  6894.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6895. </card>
  6896.  
  6897.  
  6898. card_57254.xml
  6899. <?xml version="1.0" encoding="utf-8" ?>
  6900. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6901. <card>
  6902.     <id>57254</id>
  6903.     <filler1>0</filler1>
  6904.     <cantDelete> <false /> </cantDelete>
  6905.     <showPict> <true /> </showPict>
  6906.     <dontSearch> <false /> </dontSearch>
  6907.     <owner>2566</owner>
  6908.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6909.     <content>
  6910.         <layer>background</layer>
  6911.         <id>106</id>
  6912.         <text>Billy 09</text>
  6913.     </content>
  6914.     <content>
  6915.         <layer>background</layer>
  6916.         <id>335</id>
  6917.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 09.R</text>
  6918.     </content>
  6919.     <content>
  6920.         <layer>background</layer>
  6921.         <id>311</id>
  6922.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 09.TIF</text>
  6923.     </content>
  6924.     <content>
  6925.         <layer>background</layer>
  6926.         <id>331</id>
  6927.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 09.PICT</text>
  6928.     </content>
  6929.     <name></name>
  6930.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6931. </card>
  6932.  
  6933.  
  6934. card_56840.xml
  6935. <?xml version="1.0" encoding="utf-8" ?>
  6936. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6937. <card>
  6938.     <id>56840</id>
  6939.     <filler1>0</filler1>
  6940.     <cantDelete> <false /> </cantDelete>
  6941.     <showPict> <true /> </showPict>
  6942.     <dontSearch> <false /> </dontSearch>
  6943.     <owner>2566</owner>
  6944.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6945.     <content>
  6946.         <layer>background</layer>
  6947.         <id>106</id>
  6948.         <text>Billy 08</text>
  6949.     </content>
  6950.     <content>
  6951.         <layer>background</layer>
  6952.         <id>335</id>
  6953.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 08.R</text>
  6954.     </content>
  6955.     <content>
  6956.         <layer>background</layer>
  6957.         <id>311</id>
  6958.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 08.TIF</text>
  6959.     </content>
  6960.     <content>
  6961.         <layer>background</layer>
  6962.         <id>331</id>
  6963.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 08.PICT</text>
  6964.     </content>
  6965.     <name></name>
  6966.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  6967. </card>
  6968.  
  6969.  
  6970. card_56724.xml
  6971. <?xml version="1.0" encoding="utf-8" ?>
  6972. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  6973. <card>
  6974.     <id>56724</id>
  6975.     <filler1>0</filler1>
  6976.     <cantDelete> <false /> </cantDelete>
  6977.     <showPict> <true /> </showPict>
  6978.     <dontSearch> <false /> </dontSearch>
  6979.     <owner>2566</owner>
  6980.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  6981.     <content>
  6982.         <layer>background</layer>
  6983.         <id>106</id>
  6984.         <text>Billy 07</text>
  6985.     </content>
  6986.     <content>
  6987.         <layer>background</layer>
  6988.         <id>335</id>
  6989.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 07.R</text>
  6990.     </content>
  6991.     <content>
  6992.         <layer>background</layer>
  6993.         <id>311</id>
  6994.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 07.TIF</text>
  6995.     </content>
  6996.     <content>
  6997.         <layer>background</layer>
  6998.         <id>331</id>
  6999.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 07.PICT</text>
  7000.     </content>
  7001.     <name></name>
  7002.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  7003. </card>
  7004.  
  7005.  
  7006. card_56558.xml
  7007. <?xml version="1.0" encoding="utf-8" ?>
  7008. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  7009. <card>
  7010.     <id>56558</id>
  7011.     <filler1>0</filler1>
  7012.     <cantDelete> <false /> </cantDelete>
  7013.     <showPict> <true /> </showPict>
  7014.     <dontSearch> <false /> </dontSearch>
  7015.     <owner>2566</owner>
  7016.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  7017.     <content>
  7018.         <layer>background</layer>
  7019.         <id>106</id>
  7020.         <text>Billy 06</text>
  7021.     </content>
  7022.     <content>
  7023.         <layer>background</layer>
  7024.         <id>335</id>
  7025.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 06.R</text>
  7026.     </content>
  7027.     <content>
  7028.         <layer>background</layer>
  7029.         <id>311</id>
  7030.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 06.TIF</text>
  7031.     </content>
  7032.     <content>
  7033.         <layer>background</layer>
  7034.         <id>331</id>
  7035.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 06.PICT</text>
  7036.     </content>
  7037.     <name></name>
  7038.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  7039. </card>
  7040.  
  7041.  
  7042. card_56208.xml
  7043. <?xml version="1.0" encoding="utf-8" ?>
  7044. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  7045. <card>
  7046.     <id>56208</id>
  7047.     <filler1>0</filler1>
  7048.     <cantDelete> <false /> </cantDelete>
  7049.     <showPict> <true /> </showPict>
  7050.     <dontSearch> <false /> </dontSearch>
  7051.     <owner>2566</owner>
  7052.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  7053.     <content>
  7054.         <layer>background</layer>
  7055.         <id>106</id>
  7056.         <text>Billy 05</text>
  7057.     </content>
  7058.     <content>
  7059.         <layer>background</layer>
  7060.         <id>335</id>
  7061.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 05.R</text>
  7062.     </content>
  7063.     <content>
  7064.         <layer>background</layer>
  7065.         <id>311</id>
  7066.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 05.TIF</text>
  7067.     </content>
  7068.     <content>
  7069.         <layer>background</layer>
  7070.         <id>331</id>
  7071.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 05.PICT</text>
  7072.     </content>
  7073.     <name></name>
  7074.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  7075. </card>
  7076.  
  7077.  
  7078. card_55927.xml
  7079. <?xml version="1.0" encoding="utf-8" ?>
  7080. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  7081. <card>
  7082.     <id>55927</id>
  7083.     <filler1>0</filler1>
  7084.     <cantDelete> <false /> </cantDelete>
  7085.     <showPict> <true /> </showPict>
  7086.     <dontSearch> <false /> </dontSearch>
  7087.     <owner>2566</owner>
  7088.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  7089.     <content>
  7090.         <layer>background</layer>
  7091.         <id>106</id>
  7092.         <text>Billy 04</text>
  7093.     </content>
  7094.     <content>
  7095.         <layer>background</layer>
  7096.         <id>335</id>
  7097.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 04.R</text>
  7098.     </content>
  7099.     <content>
  7100.         <layer>background</layer>
  7101.         <id>311</id>
  7102.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 04.TIF</text>
  7103.     </content>
  7104.     <content>
  7105.         <layer>background</layer>
  7106.         <id>331</id>
  7107.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 04.PICT</text>
  7108.     </content>
  7109.     <name></name>
  7110.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  7111. </card>
  7112.  
  7113.  
  7114. card_55612.xml
  7115. <?xml version="1.0" encoding="utf-8" ?>
  7116. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  7117. <card>
  7118.     <id>55612</id>
  7119.     <filler1>0</filler1>
  7120.     <cantDelete> <false /> </cantDelete>
  7121.     <showPict> <true /> </showPict>
  7122.     <dontSearch> <false /> </dontSearch>
  7123.     <owner>2566</owner>
  7124.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  7125.     <content>
  7126.         <layer>background</layer>
  7127.         <id>106</id>
  7128.         <text>Billy 03</text>
  7129.     </content>
  7130.     <content>
  7131.         <layer>background</layer>
  7132.         <id>335</id>
  7133.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 03.R</text>
  7134.     </content>
  7135.     <content>
  7136.         <layer>background</layer>
  7137.         <id>311</id>
  7138.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 03.TIF</text>
  7139.     </content>
  7140.     <content>
  7141.         <layer>background</layer>
  7142.         <id>331</id>
  7143.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 03.PICT</text>
  7144.     </content>
  7145.     <name></name>
  7146.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  7147. </card>
  7148.  
  7149.  
  7150. card_55102.xml
  7151. <?xml version="1.0" encoding="utf-8" ?>
  7152. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  7153. <card>
  7154.     <id>55102</id>
  7155.     <filler1>0</filler1>
  7156.     <cantDelete> <false /> </cantDelete>
  7157.     <showPict> <true /> </showPict>
  7158.     <dontSearch> <false /> </dontSearch>
  7159.     <owner>2566</owner>
  7160.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  7161.     <content>
  7162.         <layer>background</layer>
  7163.         <id>106</id>
  7164.         <text>Billy 02</text>
  7165.     </content>
  7166.     <content>
  7167.         <layer>background</layer>
  7168.         <id>335</id>
  7169.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 02.R</text>
  7170.     </content>
  7171.     <content>
  7172.         <layer>background</layer>
  7173.         <id>311</id>
  7174.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 02.TIF</text>
  7175.     </content>
  7176.     <content>
  7177.         <layer>background</layer>
  7178.         <id>331</id>
  7179.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 02.PICT</text>
  7180.     </content>
  7181.     <name></name>
  7182.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  7183. </card>
  7184.  
  7185.  
  7186. card_54937.xml
  7187. <?xml version="1.0" encoding="utf-8" ?>
  7188. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  7189. <card>
  7190.     <id>54937</id>
  7191.     <filler1>0</filler1>
  7192.     <cantDelete> <false /> </cantDelete>
  7193.     <showPict> <true /> </showPict>
  7194.     <dontSearch> <false /> </dontSearch>
  7195.     <owner>2566</owner>
  7196.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  7197.     <content>
  7198.         <layer>background</layer>
  7199.         <id>106</id>
  7200.         <text>Billy 01</text>
  7201.     </content>
  7202.     <content>
  7203.         <layer>background</layer>
  7204.         <id>335</id>
  7205.         <text>Heavenly Hunks:8-bit PICT Reduced:Billy:Billy 01.R</text>
  7206.     </content>
  7207.     <content>
  7208.         <layer>background</layer>
  7209.         <id>311</id>
  7210.         <text>Heavenly Hunks:24-bit TIF:Billy:Billy 01.TIF</text>
  7211.     </content>
  7212.     <content>
  7213.         <layer>background</layer>
  7214.         <id>331</id>
  7215.         <text>Heavenly Hunks:8-bit PICT:Billy:Billy 01.PICT</text>
  7216.     </content>
  7217.     <name></name>
  7218.     <script>on openCardGlobal OldWindow,PlaySound, CurrentWindow,FirstTimeIf FirstTime = "no" thenif oldWindow is in the windows thenclose window OldWindowend ifelseput "no" into FirstTimeend ifput the first line of bg fld "RPath" into CurrentPathput first line of field "FileName" & ".R" into CurrentWindowput CurrentWindow into OldWindowPicture CurrentPath, file, shadow, false, 32If the marked of this card is false thenset the loc of window CurrentWindow to "255,30" -- Verticalelseset the loc of window CurrentWindow to "205,75" -- Horizontalend ifset the visible of window CurrentWindow to trueif the result Γëá empty then Answer "Couldn't Display Image - try setting the application memory size of HyperCard to 2 megs. (click once on the HyperCard icon, choose Get Info, & set the size.)"--If PlaySound = "Yes" then show bg button "Sound"--If PlaySound = "no" then show bg button "NoSound"end openCardon closePicture windowNameGlobal OldWindow,bgCode,PPictureif bgCode is in the windows thenif "bgChoices" is not in the windows thenset the visible of window bgCode to trueend ifend ifIf windowName = PPicture thenset the visible of window OldWindow to trueend ifend closePictureOn KeyDown WhichKeyIf the visible of bg fld "AllFilesInSection" is true thenIf WhichKey = "a" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "b" thenselect line 1 of bg fld "AllFilesInSection"end ifIf WhichKey = "c" thenselect line 28 of bg fld "AllFilesInSection"end ifIf WhichKey = "d" thenselect line 43 of bg fld "AllFilesInSection"end ifIf WhichKey = "e" thenselect line 63 of bg fld "AllFilesInSection"end ifIf WhichKey = "f" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "g" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "h" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "i" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "j" thenselect line 79 of bg fld "AllFilesInSection"end ifIf WhichKey = "k" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "l" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "m" thenselect line 86 of bg fld "AllFilesInSection"end ifIf WhichKey = "n" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "o" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "p" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "q" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "r" thenselect line 118 of bg fld "AllFilesInSection"end ifIf WhichKey = "s" thenselect line 180 of bg fld "AllFilesInSection"end ifIf WhichKey = "t" thenselect line 190 of bg fld "AllFilesInSection"end ifIf WhichKey = "u" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "v" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "w" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "x" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "y" thenselect line 200 of bg fld "AllFilesInSection"end ifIf WhichKey = "z" thenselect line 200 of bg fld "AllFilesInSection"end ifelsepass KeyDownend ifEnd KeyDownon mouseUpInPicture WindowName,theMouseLocglobal bgChoice,bgCodeput the first item of theMouseLoc into Xadd 90 to Xput the last item of theMouseLoc into Yadd 30 to YIf WindowName = "bgChoices" thenIf (y > 194) then                                         -- 3rd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:L" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:K" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:J" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:I" into bgChoiceprettyBackgroundend ifend ifend ifend ifelseIf (y > 118) then                                       -- 2nd rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:H" into bgChoiceprettyBackgroundelseIf (x >257) thenput "Heavenly Hunks:Tools:Data:G" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:F" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:E" into bgChoiceprettyBackgroundend ifend ifend ifend ifelse                                                    -- 1st rowIf (x > 333) thenput "Heavenly Hunks:Tools:Data:D" into bgChoiceprettyBackgroundelseIf (x > 257) thenput "suz" into bgChoiceprettyBackgroundelseIf (x > 181) thenput "Heavenly Hunks:Tools:Data:B" into bgChoiceprettyBackgroundelseIf (x > 105) thenput "Heavenly Hunks:Tools:Data:A" into bgChoiceprettyBackgroundend ifend ifend ifend ifend ifend ifend ifend mouseUpInPicture</script>
  7219. </card>
  7220.  
  7221.  
  7222. card_53196.xml
  7223. <?xml version="1.0" encoding="utf-8" ?>
  7224. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  7225. <card>
  7226.     <id>53196</id>
  7227.     <filler1>0</filler1>
  7228.     <cantDelete> <false /> </cantDelete>
  7229.     <showPict> <true /> </showPict>
  7230.     <dontSearch> <false /> </dontSearch>
  7231.     <owner>11720</owner>
  7232.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  7233.     <part>
  7234.         <id>1</id>
  7235.         <type>field</type>
  7236.         <visible> <true /> </visible>
  7237.         <dontWrap> <false /> </dontWrap>
  7238.         <dontSearch> <false /> </dontSearch>
  7239.         <sharedText> <false /> </sharedText>
  7240.         <fixedLineHeight> <true /> </fixedLineHeight>
  7241.         <autoTab> <false /> </autoTab>
  7242.         <lockText> <true /> </lockText>
  7243.         <rect>
  7244.             <left>13</left>
  7245.             <top>20</top>
  7246.             <right>172</right>
  7247.             <bottom>149</bottom>
  7248.         </rect>
  7249.         <style>transparent</style>
  7250.         <autoSelect> <false /> </autoSelect>
  7251.         <showLines> <false /> </showLines>
  7252.         <wideMargins> <false /> </wideMargins>
  7253.         <multipleLines> <false /> </multipleLines>
  7254.         <reservedFamily> 0 </reservedFamily>
  7255.         <titleWidth>0</titleWidth>
  7256.         <icon>0</icon>
  7257.         <textAlign>center</textAlign>
  7258.         <font>B Korinna Bold</font>
  7259.         <textSize>24</textSize>
  7260.         <textStyle>condense</textStyle>
  7261.         <textStyle>outline</textStyle>
  7262.         <textHeight>32</textHeight>
  7263.         <name>titles</name>
  7264.         <script>On MouseUpGoNextSameWordEnd MouseUpon mouseEnterShowAutoBalloon "This is the name of the current picture. Click once on a word to move to the next occurence of that same word."end mouseEnteron mouseLeaveRemoveBalloonend mouseLeave</script>
  7265.     </part>
  7266.     <part>
  7267.         <id>2</id>
  7268.         <type>field</type>
  7269.         <visible> <true /> </visible>
  7270.         <dontWrap> <false /> </dontWrap>
  7271.         <dontSearch> <false /> </dontSearch>
  7272.         <sharedText> <false /> </sharedText>
  7273.         <fixedLineHeight> <true /> </fixedLineHeight>
  7274.         <autoTab> <false /> </autoTab>
  7275.         <lockText> <true /> </lockText>
  7276.         <rect>
  7277.             <left>14</left>
  7278.             <top>237</top>
  7279.             <right>173</right>
  7280.             <bottom>337</bottom>
  7281.         </rect>
  7282.         <style>transparent</style>
  7283.         <autoSelect> <false /> </autoSelect>
  7284.         <showLines> <false /> </showLines>
  7285.         <wideMargins> <false /> </wideMargins>
  7286.         <multipleLines> <false /> </multipleLines>
  7287.         <reservedFamily> 0 </reservedFamily>
  7288.         <titleWidth>0</titleWidth>
  7289.         <icon>0</icon>
  7290.         <textAlign>center</textAlign>
  7291.         <font>B Korinna Bold</font>
  7292.         <textSize>14</textSize>
  7293.         <textStyle>condense</textStyle>
  7294.         <textStyle>outline</textStyle>
  7295.         <textHeight>18</textHeight>
  7296.         <name>titles</name>
  7297.         <script>On MouseUpGoNextSameWordEnd MouseUpon mouseEnterShowAutoBalloon "This is the name of the current picture. Click once on a word to move to the next occurence of that same word."end mouseEnteron mouseLeaveRemoveBalloonend mouseLeave</script>
  7298.     </part>
  7299.     <content>
  7300.         <layer>card</layer>
  7301.         <id>1</id>
  7302.         <text>HeavenlyHunks</text>
  7303.     </content>
  7304.     <content>
  7305.         <layer>card</layer>
  7306.         <id>2</id>
  7307.         <text>Photography byDavid ReySoftware byBodyCello</text>
  7308.     </content>
  7309.     <content>
  7310.         <layer>background</layer>
  7311.         <id>1</id>
  7312.         <text>aa</text>
  7313.     </content>
  7314.     <name></name>
  7315.     <script>on OpenCardGlobal OldWindow,bgCode,GotABackgroundIf GotABackground = "no" thenprettyBackgroundend ifif bgCode is in the windows thenset the visible of window bgCode to trueend ifif OldWindow is in the windows thenset the visible of window OldWindow to falseend ifwait 4 secondsgo nextend OpenCard</script>
  7316. </card>
  7317.  
  7318.  
  7319. card_3514.xml
  7320. <?xml version="1.0" encoding="utf-8" ?>
  7321. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  7322. <card>
  7323.     <id>3514</id>
  7324.     <filler1>0</filler1>
  7325.     <cantDelete> <false /> </cantDelete>
  7326.     <showPict> <true /> </showPict>
  7327.     <dontSearch> <false /> </dontSearch>
  7328.     <owner>11720</owner>
  7329.     <link rel="stylesheet" type="text/css" href="stylesheet_3050.css" />
  7330.     <content>
  7331.         <layer>background</layer>
  7332.         <id>1</id>
  7333.         <text>a</text>
  7334.     </content>
  7335.     <name></name>
  7336.     <script>on opencardglobal Oldwindow,bgCodeif bgCode Γëá "z" thenif bgCode is in the windows thenset the visible of window bgCode to falseend ifend ifif OldWindow is in the windows thenset the visible of window OldWindow to falseend ifplay stopplay "Intro"Picture "Heavenly Hunks:Tools:Data:Intro", file, rect, false, 8set the loc of window "Intro" to "44,34"set the visible of window "Intro" to truewait 4 secondsvisual effect dissolve slowlygo next cardend opencardon closecardif "Intro" is in the windows thenclose window "Intro"end ifend closecard</script>
  7337. </card>
  7338.  
  7339.  
  7340.